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Only CARDCO would dare improve on its own 
best seller (the +G has far out-sold ar>y other 
printer interface, and has set the industry 
standard by which competitors are judged). 
The G-Wiz is even better — and costs 
30% less.* Our 27th major innovation in 
Commodore accessories has atl the + G's 
features, and more... 
Built-in Buffer for Mora Spead 
The G-Wiz buffer dumps high-resolution 
screens up to 18 times faster than competitive 
interfaces without buffers. No more waiting! A 
complex 50-minute printout now takes just 2.5 
minutes with the G-Wiz. 
Excluaiva! Aafsect Ratio Selection 
Only the G-Wiz matches graphics characters to 
standard characters on Okidata. Epson, Star 

* ACTuat prtce may vary according to dealer and region 



Kflicronics, Prowriter, Smith Corona, C-1T0H, 
GoriHa Banana, and many other dot matrix 
printers. Now you can perfectly align high 
resolution graphics characters within text 
blocks, or in columns. 
CARDCO excellence triumphs again! The 
G-Wiz is the "best bang for the buck" on the 
printer interface market today — and it^ 
backed by CARDCO'S exclusive lifetime 
warranty! G-Wiz: another distant target for the 
competition to shoot at. 

CARDCO,lnc.300S.Topeka/Wichita.KS 
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Ship to Shore... we slice through modem mumbo jumbo. 29 
Book Review by Morton Kevelson 44 



Reviews... new hardware and software torture-tested. 
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Erratum... basically, we b lew it with BASIC Trace. 72 

Commodares,,.a real challenge - if you can hack it. 81 

Program Ustings...type! Save! Load! Run! Enjoy! 
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***Includes program: Tfie 65J0 Simulator (for the C-64) 
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'Graphics Extravaganza?' " Michael 
Schneider asked when I showed him this 
month's cover headUne. "A couple of pro- 
grams and a tutorial doesn't make it an 'ex- 
travaganza.' If I'm going to call it a 'graphics extravaganza,' 
it had darn well better be a 'graphics extravaganza." " 
Having a publisher with ethics is a constant source of 
difficulty, but one the shrewd editor can live with through 
careful planning. In this case, careful planning involved 
bringing along the full lineup of graphics articles in this 
month's Ahoy! One by one I laid them on his desk. 

"Look, Mike," I said, "Screen Magic by Bob Spirko, 
who wrote Alice in Adventureland for us a few months 
back. It provides a joystick-controlled palette and can- 
vas for creating color graphics on the 64. without all the 
complicated commands. 

"And Screen Dumping on the Commodore 64— a real 
education in creating screen bit graphics. It would have 
to be. It was written by Professor Roger S. Macomber 
of the University of Cincinnati. The program he includes 
uses machine language to speed up the dumping of graph- 
ics to a printer. 
"Dale Rupert covered screen bit graphics in this months 
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Rupert Report, too -but The Ultimate Resolution con- 
centrates on the theory behind practical applications like 
Prof. Macombers, 

"Here's another example of how graphics theory can 
be put to use: J.M. Marcano's Mapping 4.4. which al- 
lows you to plot mathematical functions in hi-res." 

Peering at me over the pile of manuscripts, Mike looked 
annoyed. I asked why. 

"Becau-se," he said, "you're standing here babbling when 
you've got a graphics extravaganza to put together!" 

Gee, I thought as I left Mike's office -I didn't even get 
to tell him about this graphics issue's flagship piece: 
Quad-Prim by Michael Beutjer. Mprton Kevelson will 
tell \ou all about this landmark program in his Graphics 
Challenge Update on the facing page. 

Having justified our cover headline, we'll now do the 
same for the larger type on the cover— the Ahoy! logo- 
with the finest lineup of Commodore-related articles and 
programs you'll find on the newsstand this month: 

• For Orson Scott Card to outdo himself would take 
some doing (outdoing?) -but he may have succeeded with 
this month's installment of Creating Your Omt Games 
on the VIC and 64. In Sing a Song of Anything, he pro- 
vides a system by which C-64 users can automatically 
enter music into their original game programs -as eas- 
ily as typing letters! (Turn to page 18.) 

• The third installment of Commodore Roots, Mark 
Andrews' assembly language programming column, peers 
Under the Hood of your computer at its microproces- 
,sor. Included is the 6510 Simulator, a program which, 
while not an as.sembler, will show you how one works. 
(Turn to page 77.) 

• Duck Shoot starts out as easy as the penny arcade 
version, but soon reaches a level of complexity certain 
to ruffle your feathers. (Turn to page 35.) 

• Towers of Hanoi adapts the famous Tower of Brah- 
ma puzzle to the C-64 .screen. (Turn to page 17.) 

• Even the most expert joystickers will be thrown for 
a loss by Speedy for the unexpanded VIC 20. Its title 
character has a mind of his own when it comes to re- 
sponding to your directions. (Turn to page 56.) 

• Sheldon Leemon, author of MACTALKS and Tele- 
compiaing on the IBM PC from COMPUTE! Books, 
takes over at the helm of our Ship to Shore column this 
month with a technical overview of telecommunications. 
(Turn to page 29.) 

• Also inside are Dale Rupert's Commodores at their 
most frustrating; Scuttlebutt, offering news in greater 
depth and more timely fashion than any other Commo- 
dore monthly; and Reviews of products like Blue Max 
2001. PROMAL, and the Teknika MJ-10 color monitor. 

Love to tell you more, but I have to run back to Mike's 
office. His secretary dropped a note on my desk- some- 
thing about a "Graphics Super-Spectacular." 

-David Allikas 



GRAPHICS CHALLENGE 
UPDATE 

By Morton Kevelson 



I -w- 1 n the October 1984 issue of Ahoy!, as part of a 
I tour de force on Commodore 64 bit mapped 
I graphics, I issued a graphics challenge to all com- 
l"^™] ers. In brief, I was looking for some way to manip- 
ulate a bit mapped graphics field which exceeded the lim- 
itations of a single 320 by 200 pixel Commodore 64 high 
resolution display. The response has been far from over- 
whelming, but some results are in. 

The first answer came from Inkwell Systems, with ver- 
sion 4.0 of Flexidraw. Among the enhancements to ver- 
sion 3.0 (reviewed in November 1984) is the ability to 
link multiple screens on both the monitor and the print- 
er. This allows for printouts made up of 544 pixels wide 
and an unlimited number of pixels high. (Look for a de- 
tailed review of Flexidmw version 5.0 later this year. This 
will have so many enhancements to version 3.0 that i^ 
is practically a new program.) 

The second response comes from Michael Beuljer, au- 
thor of Picture Perfect from KT Software (October 1984 
Ahoy[). For those of you who have been unable to locate 
this versatile Koala screen dump program, it is now be- 
ing sold as KoalaPrinler by Koala Technologies. Mr. 
Beutjer has responded to my challenge by providing the 
Quail-Prim program in this month's issue. The two ver- 
sions of this program will allow up to four DOODLE! 
files to be linked for simultaneous printout on a Gemini 
lOX or a Commodore 1526 printer. 

Bit mapped graphics for the 1526 printer are difficult 
to implement, as it does not support true graphics mode. 
The 1526 allows for a single custom character to be de- 
fined and printed. Thus a full bit mapped screen dump 
requires the image to be formed eight bytes at a time. 
Furthermore, each time the custom character is redefined 
a carriage return without linefeed must be executed be- 
fore it can be printed. This is what causes bit mapped 
screen dumps to print so slowly on the 1526. 

For advanced users, the source code listings for the 
Quad-Print programs have been included. Owners of the 
1526 should take note of the listing labeled Fast Dump 
Routine. Mr. Beutjer has used a clever trick to maximize 
the speed of the 1526 bit map printout. The single char- 
acter is not redefined unless it is found to be different 
from the last one. As a result, this high resolution dump 
for the 1526 should be the fastest available from any 
source. D 
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We'll Have the New Advanced Commodore Products ls(" 

ATTJT AT PRODUCTS! 
iNII/VV LOW PRICES! 



Call Icji informatuin 
on new produil-'^ , . . 

CATALOGS; Krcc 
on wriUcn request. 
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PRINTERS 

PowertypeDaisy wheel IS CPS Epson RX 80 



wilhCardcoB $354 

Okidata 92 160 CPS 

with Tymac Connedion .... 429 
Commodore MPS 802 . Call 

Okidala 182 NEW Call 

SPECIAL 



S299 



with Tymac Connection . 
DPS 110! Datsywheel 

Direct Connect to C64 ,. . . Call 

RitemanC+ NEW Call 

lVIW-350 Interface NEW Call 
PRINTSHOP .32.00 • SPECIAL 

DISK DRIVES 

MSD Super Drive Call Commodore 1541 .... Call 

Indus GT Call Phonemark Dataselte S29 

Epyx Fast Load J27 

Commodore 1571/72. . Call 

^i'i"iiiiii"iii" iiniiiiiniiiiiiiTT TT 
SGIO PRINTER 
2K Buffer /^ A T T I 
NLQ Mode L / ALL! 

nTTmiiiii iiiiimj | i ! ii [ ii iiiM ii 




MONITORS 



TcknikaiVlJlO $189 

Commodore 1702 .... Call 



$89/99 
. . Call 



Zenith ZVMGr/Amb 
Commodore 1902 . 

DATABASE MANGERS 

TKe Consultant $59 PFS:Filc $59 

Super Base 64 49 PFS:Rcport ......[.[.. 49 

The Manager 33 

WORD PROCESSORS 

Paper Clip/&spellcr $55/69 Easy Script. $35 

Fleet System 2 NEW. ... Call Easy Spell 17. 

ACCOUNTING 

Pcachtree GI./AP/AR j 1 39 

Commodore GL/AP/AR/PR/INV ea. 34 



KIT&VtIITKX.. . ii.,llif.,r 39.95 

MODEMS 

Weslridge 6420 Call 

Mighty Mo Call 

Volksmodcm 12 imiUjmJ' Call 

VIP Terminal $29 

Commodore 1660 59 






ni 



ACCESSORIES 

Com Cool Drive Fan $49 Power Pak $27 

Com Cool Plus w/ surge 69 Surge Protector 4 Plug ... 25 

BLACK NAUGAHYDE COVERS 

C-64 or 1541 Drive .. . ca $3 I 702 Monitor $10 

MSD Drives 1/2 5/6 1525/MPS801 7 

Gemini lOX 9 1526/MPS802 8 

MOST ORDERi SHIPPED WITHIN It KOUBS' A*,nl.std [.ric« a,r lor bank ctetk a, monry «,6t, 
USAWC .irdtri adii 1 « SO C O I) OKDtRS Prrsonahir compmy chcilis Jcij. urdtri 21 djfs flU m|„ 
Jic (inil - dtltthvf rorif baodur tutmijitd (ur a™ prodiicl only Add 3S lor ihipjiing |12 iO min I 
flfjw Mil lor sbirpins i.n munilnn Ohm rrsidtnii iM 5 5^ salts Ki Prarn k avidibilily subjnl Id rhanKt 
HOIJR&MON IHI IIIAMlolOPM • SAT 111 AM (o i PM • SHIM Noon to 5 PM 

800-638-2617 

INFORMAFION & IN OHIO 216/7!i8-i 
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HOW 

TO AVOID 

BECOMING A 



DINO 

If dinosaurs had kept up with their 
rapidly changing world, you might 
have a pet bronto today. (It's 
probably just as well they 
didn't, since they wouldn't fit 
into a small imported car 
anyway) 

The point is, if you 
don't want to get left 
behind today, you 




UR. 

need a computer with the latest 
software and accessories. No 
question about it. The only ques- 
tion is, "where do I buy it?" 

Ah! We thought you'd never 
ask. Computer Warehouse, of 
course. Nice guys, great prices. 
Give us a call today We'll get 

your shipment out bronto - 

er, pronto. 



COMMODORE 

C64 S139.95 

1541 $179.00 

1101 Daisywheel Printer ... S329.95 

MPS 801 $169.95 

MPS 802 $209.00 

1702 $209.00 

SX 64 S499.00 

Modem 300/1660 S 89.95 

Power Packs S 29,95 

Datasettes $ 29.95 

PRINTERS 

Star Printets 

SG 10 $269.00 

SD 10 $399.00 

SR 10 $499.00 

Powertype S369.00 

Radix 10 $499.00 

Delta 15 CALL 

Okidata Printers 82, 83 and 92 . . CALL 

Citizen MPS 10 $339.00 

Panasonic 1091 $299.00 

Axiom Elite 5 Daisywheel 

Printer $249.00 

Wilti interlace $299.00 

MODEMS 

Westridge S 69.95 

MPP1064 S 89.95 

Mighty Mo $ 89.95 



SOFTWARE 

Flopptclene Head Cleaner 
Word Processors 

Paperclip with spell pack S 

Wordpfo 64 $ 

Easyscript S 

Words Writer $ 

Write Now $ 

Cut and Paste S 

Databases 

Praclitile $ 

Superbase 64 S 

The Manager $ 

Ttie Consultant $ 

PFS File $ 



S 14.95 

69.95 
39.95 
39.95 
44.95 
39.95 
39.95 

24.95 
59.95 
34.95 
69.95 
59.95 
39.95 
34.95 



File Now 

FMC(Conllnental) 

Games 

Flighl Sim II $ 36.95 

Zorks, I. II, III $ 29.00 

Ghostbusters S 19.95 

Pitfall $ 19.95 

Chipwits $ 29,95 

Synapse Games $ 19.95 

Epyjt Games from S 9.95 

Spreadsheets 

Multiplan S 59.95 

Practicalc $ 29.95 

Easy Calc S 49.95 

Calc Result $ 69.95 

SwiftCalc $ 49.95 



Educational 

Maelstorm $ 

Primary Math $ 

Math Tutor S 

Ten Little Indians $ 

Gotcha Math $ 

Toddler Tutor S 

English Invaders $ 

Tiny Tutor $ 

Science Pack $ 

Math Pack $ 

Peanuts Picture Puzzlers S 

Peanuts Maze Marathon S 

Snoopy Skywriter S 

Charlie Brown ABC S 

Snoopy to the Rescue $ 

Family Fmance 

Home Accountant $ 

Complete Personal Accountant $ 

Time Money Manager S 

Financial Cookbook $ 

Full line of CBS Software 

DISKETTES* 

Computer Warehouse ss/dd . S 

Elephant ss/sd S 

Elephant ss/dd $ 

Maxell MD1 $ 

Maxell M02D $ 

SKC ss/sd $ 

SKC ss/dd S 

■ Prices per boxes of 10 



7.95 

7.95 

7.95 

7.95 

7.95 

7.95 

7.95 

7.95 

7.95 

7.95 

19.95 

19.95 

19.95 

19.95 

19.95 

69.95 
69.95 
49.95 
29.95 

CALL 

14.95 
13.95 
16.95 
16.95 
24.95 
13.95 
16.95 



COMPUTER WAREHOUSE 

7222 S.W. 117th Avenue, Miami, FL 33183 Phone: 1-800-372-0214 

Add 3% lor shipping and handling charges Ad prices reflect 3% cash discount Credit card orders should add 3%. Prices subject to change without notice. 
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MODERN ROLL PLAYING 

If you can analyze trends as 
shrewdly as we, then you realize that 
player piano sales are at an all-time 
low. So what does a piano roil com- 
pany with 85 years of experience do? 
Convert all that digitized music to 
disk, of course. That's what Q-R-S 
Music Rolls Inc. and Micro-W, Dis- 
tributing have combined to do. 

Q-R-S will make its library of over 
10,000 piano rolls available, digital- 
ly encoded to run on Commodore 
and other popular computers. Re- 
quired is an instrument such as a key- 
board synthesizer (to serve as the 
equivalent of a player piano), equip- 
ped with a Musical Instrument Digi- 
tal Interfece (MIDI). Micro-Ws new 
Commodore MIDI Interface, which 
plugs into the 64's user port, is the 
lowest-priced ($49.95) available to 
date. Also newly offered is the 1-2 
MIDI Cable ($19.95), which connects 
an instrument used in the described 
configuration to one or two other in- 
struments. 

Micro-W. Distributing, Inc., I342B 
Route 23, Butler, NJ 07405 (phone: 
201-838-9027). 

REG 

When you review products prior to 
their release, as we try to do, an- 
nouncements of this type are some- 
times necessary. Cardco's OuiG in- 
terlace (see page 88, April), their en- 
hanced version of the -l-G, has been 
renamed the G Wiz. (Whatever the 
product's capabilities, you've got to 
be impressed by Cardco— coming up 
with not one, but two cute titles for 
a printer interface.) 

Cardco, Inc., 300 S. Topeka, 
Wichita, KS 67202 (phone: 316- 
267-3807). 




10,000 piano rolls going floppy. 
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DATABASE PROGRAMS 

The icon-driven E-Files 64 lets the 
user set up a customized database in 
card file format in any of three file 
drawers (each with a 200-record ca- 
pacity). Sort and search by any user- 
defined field, selective printouts, and 
address book format with mailing la- 
bels are all possible. On disk; $20.95. 

VMC Software, RO. Box 326, 
Cambria Heights, NY 11411. 

Designed to manage a home or 
small business bank account, Mega- 
Base I will scan a datafile for checks 
by number, company, or name, de- 
posit hstings and withdrawals, append 
or edit existing datafiles, auto-bal- 
ance, and list a block of checks. On 
disk for the 64; $19.95. 

Mega-Systems, RO. Box 415, 
Spring House, PA 19477 (phone: 
215-855^1451). 

CHARACTER EDITORS 

The uses of the Chared character 
editor range from creating character 
sets for the Greek (or any other) al- 
phabet to designing flying saucers for 
game use, Hi-res and multicolor 



modes are supported. Two sample 
character sets are included. For the 
C-64 on tape ($19.95) or disk 
($22.95). 

APCAD Software, RO. Box 2673, 
Ann Arbor, MI 48106. 

Font Factory will read in any stan- 
dard Commodore ASCII sequential 
disk file, automatically format it, and 
print the document with the typeface 
you select (eight are provided) in sin- 
gle or double width. On the same 
disk is Signwriter 64, allowing you 
to generate large letter signs up to 40 
characters long, in characters up to 
I foot in length. Price is $29.95. 

INTEGRATED SOFTWARE 

If you multiply the hundreds of 
thousands of copies of Lotus 1-2-3 
that have been sold for the IBM PC 
by the program's selling price of 
$300-$500, it easily ranks as the best- 
selling computer program of all time. 
This success has inspired three manu- 
fecturers of C-64 software to produce 
their own integrated business soft- 
ware, wherein several programs re- 
side simultaneously in memory, al- 
lowing data to be switched back and 
forth. 

Vizffstar, like Lotus, provides 
spreadsheet, database, and business 
graphics programs. Menu-driven, it 
allows you to open up to nine win- 
dows to view different parts of the 
spreadsheet simultaneously. As of this 
writing, the program will work only 
with the 1541 disk drive. Price is 
$119.97. 

Solid State Software, 1253 Corsi- 
ca Lane, Foster City, CA 94404 
(phone: 415-341-5606). 

Harmony from International Tri 
Micro also offers spreadsheet, data- 
base, and business graphics programs, 
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You deserve the best. You've earned it. Now reward yoursetf with a session of Night Mission PINBALL, 
the most realistic and challenging arcade simulation ever conceived! ■ Stunning graphics and dazzling 

X — :: Z \ sound effects put Night Mission PINBALL in a class by Itself. Game features: muiti- 

"^iii.T^ Ni I ball and multi-player capabilities, ten different professionally designed levels of play, 

P' • J «- and an editor that lets you create your own custom modes. ■ So take a break with 
' 'I Night Mission PINBALL from SubLOGIC. Winner of Electronic Games magazine's 

"*' ii' ^ 1983 Arcade Award for Best Computer Audio/Visual Effects. 
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See your dealer . . . 



or write or call for more information. 



yfeLOGIC 



Order Line: 800 / 637-4983 
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and adds a word processor, A win- 
dowing feature allows the user to 
view one set of data while working 
with another. 

International Tri Micro, 1010 N. 
Batavia, Suite G, Orange, CA 92667 
(phone: 714-77M038). 

Softsync's Trio comprises word 
processor, spreadsheet, and database 
programs. The spreadsheet features 
48K free memory and recalculates 
topologically, similarly to Lotus 1-2-3 
and Multipkm. On disk, with 120- 
page manual/tutorial; $69.95. 

Softsync, Inc., 162 Madison Ave., 
New York, NY I00I6 (phone: 212- 
685-2080). 

NEW PRINTERS 

For the individual who must own 
the fastest printer on the block, Sa- 
kata's SP-1500 is a safe bet at 180 
characters per second. Despite its 
high speed, the S585.00 serial impact 
dot matrix printer operates at a noise 
level of 60 dB(A). Included are a 3K 
buffer, friction/tractor and reverse 
feed, near letter quality mode and nu- 
merous other special print features, 
and built-in parallel Centronics inter- 
face (serial interface optional). 

Sakata U.S.A. Corporation, 651 
Bonnie Lane, Elk Grove Village, IL 
60007 (phone: 312-593-3211). 

If speed is not important but low- 
cost letter-quality print is, the $295 
Juki 6000 will bang out 10 charac- 
ters per second from a 100-charac- 
ter daisy wheel in 10, 12, or 15 pitch. 
Included are both Centronics paral- 
lel and RS-232C serial interfaces. 

Juki Industries of America, Inc., 
299 Market Street, Saddle Brook, NJ 
07662 (phone: 201-368-3666). 

64 AND PALS 

64 and Pals'<^vsk and booklet lead 
the beginning user from setting up his 
C-64 through running various types 
of programs. Price: $14.95. 

Abnel Company, P.O. Box 397, 
Grand Junction. CO 81502 (phone: 
303-245-3997), 

TELECOM NEWS 

Through Travelshopper, Compu- 
Serve subscribers can now directly 
access TWA's PARS reservations sys- 




Juki 6000: 
low cost, speed. 
RFADER SERVICE NO. 292 




SP-1500: a 
blistering ISOcps. 
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tem to determine the lowest fares and 
most convenient flights— as well as 
make an immediate reservation and 
have the ticket sent to their home, the 
airport, or a designated travel agent. 
Enrollment is free and includes mem- 
bership in TWA's Frequent Flight Bo- 
nus program. The TWA PARS in- 
cludes up-to-date information on do- 
mestic and international flights for 
every published airline schedule in 
the world. 

Additionally, CompuServe will 
combine with Quick & Reilly (the 
nation's third largest discount brok- 
erage firm) to offer such online ser- 
vices as price quotes and direct or- 
der entry for virtually every stock and 
option listed in the Wall Street Jour- 
nal and current portfolio and tax rec- 
ords. Most important, clients can buy 
and sell securities 24 hours a day 
(with orders placed during evenings 
and weekends executed at the start of 
the following business day). 

CompuServe Inc., 5CXX) Arlington 
Centre Blvd., P.O. Box 20212, 
Columbus, OH 43220 (phone: 614- 
457-8600). 

Guide to Modems, an 8-page pam- 
phlet published by Anchor Automa- 
tion, defines basic modem technol- 
ogy and its applications and provides 



suggestions for product selection 
(with an admirable lack of mention 
of their own product line). Copies are 
available at retailers. 

Anchor Automation, Inc., 6913 
Valjean Ave., Van Nuys, CA 91406. 

VIP Technologies has replaced its 
VIP Terminal with VIP Tenninal XL, 
compatible with the C-64 and 128PC 
and featuring X-Modem file transfer 
protocol (to allow transfer of files to 
and from information services using 
same). Price: $39.95. 

VIP Technologies, 132 Aero 
Camino. Goleta, CA 93117 (phone: 
805-968-4045). 

Requiring only a C-64, a 1541 disk 
drive, and a 1526 printer, CAM-64 
(Call Accounting Manager) allows 
businesses to sort outgoing calls by 
station/extension (up to 254), area 
code, common carriers, and other 
categories, each of which may be 
subdivided into number of calls, 
length of calls, etc. Price of autostart 
cartridge, software, and manual is 
$295. 




C— 64 

OWNERS: 



Stop playing "HIde-and-Seek' with 
your Disk sollwarei Let your commodo'e 
64'" "memory" do all the work for you, 
with MASTERDISK« Easy Menu- 
Guides make everyone a "pro ' in 1 day! 

Here's a small "PEEK" at SOME of the 
POWER of PRODUCTIVITY a( your fin- 
gertips . . . 

• a SORTED Master Catalog of ALL your 
Disks- Names, ID'S. File info, etc 

• Searcti + L)St any File/OiSk/tD in seconds, 
automatically, in any of FIVE WAYS 

• Transfer ML-Programs Of Files (roin Dish 
to Disk (CATEGORIZE your soltvvarel 

• Stop disaster Ijefore il strikes, change 
duplicate ID"s last, i^ithout total re-copy. 

• Restore accidentally-scratc^ed dies in 
a (lastl. witti VERIFICATION tfial Itieyre 
OK 

• Works with 1 or 2 Drives (t541-type). 
with or wiltiout Printer (Commodore or 
ASCIIl 

• All IhiS • MUCH MORE, for jusl S29 95 

SPECIAL: Hanflir-Relerence Card lor 
HEX/ASCII' Sinary-to-Decimal Values. • 
FORfilULAS - only S! with order (it for 
all phone orders) 

PLUS: Everybody wants a FAST backup- 
copy program HoWs4 MINUTES, includ- 
ing Formatling'^i —and it's FREE with 
MASTEBDISK<i" 

Send Check or Money Order to: 

INTEGRATEDSOFTWARE 

SYSTEfWIS 

P.O. Box 1801 

Ames, lA 50010 

VISA/U C .C O.D . call 1616) 233-2992 

9am-9 pm M-F. 9arn-1 pm Sat & Sun (Central) 

Add S3 Shipping^pius S2 Foreign. COD 

iA Residents add 4''^ Sales Tax 
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The first two releases in 
MicroProse's Command Series of combat simulations, re- 
creating some of the greatest battles of the twentieth century. 
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Input Systems, Inc.. 15600 Palm- 
etto Lake Drive, Miami, FL 33157 
(phone: 305-253-8100). 

Data Mart. Inc. will publish the 
OPPS Directory of Online Personnel, 
Products and Services, to be updated 
twice a year. Registration for the first 
edition is open until June 30, 1985. 

Data Mart, Inc., P.O. Box 13542, 
New Orleans, LA 70185-3542 
(phone: 504-866-0828). 

NEW GAME RELEASES 

MicroProse's Command Series of 
combat simulations puts you in 
charge of the great armies of the 20th 
century, in a variety of historical or 
"what if scenarios. 

The first two releases are Crusade 
in Europe, simulating the Allied 
struggle against Germany from D- 
Day to the Battle of the Bulge, and 
Decision in the Desert, recreating the 
battle between Rommel's Afrika 
Korps and the British 8th Army for 
control of North Africa. The next 
wave will include Sword ofZion {the 
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Arab-Israeli Wars), Blitzkrieg 1940 
(Germany's early-WWII victories), 
and Drive on Moscow (Hitler's inva- 
sion of Russia). For the C-64; $39.95 
each. 

MicroProse Software, 120 Lake- 
front Drive, Hunt Valley, MD 21030 
(phone: 301-667-1151). 

Incorporaimg light pen technolo- 
gy, the Stack Light Rifle allows you 
to shoot^m-up from as far as 10 feet 
away from the screen. Included are 
six disk-based games: High Noon. 
Glorious 12th, Shooting Gallery, R^its 
"n' Cats, Escape from Alcatraz, and 
Crow Shoot. Romaro Enterprises, 
North American distributor of the ri- 
fle, will release additional games to 
retail for under $20.00 each. 

Romaro Enterprises International, 
P.O. Box 227, Streetsville Postal Stn., 
Mississauga, Ontario, Canada L5M 
2B8 (phone: 416-820-5235). 

Between April 1 and August 31, 
Datasoft will mail a $5 rebate to pur- 
chasers of Bruce Lee, Conan, Tiie 
Dallas Quest. Pac Man, Dig Dug, 



Pole Position, Mr DO!, Txixxon, or 
Letter V/imrd. Rebate coupons can 
be found in appropriately marked 
packages, or with your dealer. 

Datasoft, Inc., 19808 Nordhoff 
Place, Chatsworth, CA 91311 (phone: 
818-701-5161). 

Electronic Arts will award three 
SlOOO prizes to those registered own- 
ers of their Adventure Construction 
Set who produce the best games in 
the Fantasy/ Medieval, Spy/Mystery, 
and Science Fiction categories. Cop- 
ies of winning games and all other 
entries will be made available to reg- 
istered ACS owners for the cost of 
disk duplication and handling. En- 
tries must be submitted (on disk) by 
January 1, 1986. 

Electronic Arts, 2755 Campus 
Drive, San Mateo, CA 94404 (phone: 
415-571-7171). 

LOWCOST WORD 
PROCESSOR 

The Pagewriier 64 word processor 
features an 80-column scrolling text 
window, onscreen command menus, 
and mail merge option. A column in- 
dicator above the text lines provides 
a visual indication of the position of 
the text being entered. Available on 
disk ($21.95) or cassette (S18.95). 

VMC Software, P.O. Box 326, 
Cambria Heights. NY 11411. 

c6mmWore user 

SUPPORT 

Good news for Commodore user 
groups: the formation of Commodore 
World, a program designed to pro- 
vide a direct link between Commo- 
dore and user groups around the 
world. Organizations approved for 
membership receive suggestions for 
organization, advertising support, and 
pre-release product news through the 
program's Input/Output newsletter. 

Groups wishing to join should con- 
tact the User Group Coordinator at 
Commodore (215431-9100); they will 
receive an application, sample by- 
laws, color advertising posters, and 
the first issue of the newsletter. Ap- 
proved groups will receive an access 
code to the Commodore World sec- 
tion of Commodore's telecommuni- 
cations network, additional posters. 




VIDEO BASIC-64 - ADD 50+ graphic and 
sound cofTimands to your programs with this super 
development package. You can distribute free RUN- 
TIME version without paying royallies! 
ISBNlf 0-916439-26-7 $59.95 

BASIC COMPILER 64 - compiles the 

complete BASIC language into either fast 6510 

machine language and/or compact speedcode. Get 

your programs into high gear and protect them by 

compiling. 

IS8N# 0-916439-17-8 S39.95 

MASTER-64 - professional development 
package for senous applications. Indexed file 
system, full screen management, programmer's 
aid. BASIC extensions. 100 commands 
ISSNf 0-916439-21-6 $39.95 

PASCAL-64 ■ full Pascal with extensions for 
graphics, sprites, file management, more. Compiles 
to 6510 machine code and can link to 
Assembler/lVlonitor routines, 
ISDN# 0-916439-10-0 $39.95 



ADA TRAINING COURSE - teaches 
you the language of the future Comprehensive 
subset of the language, ediior. syntax 
checker/compiler, assembler, disassembler. t20-(- 
page guide 
ISBN# 0-916439-15-1 $59.95 

FORTH-64 ■ loaded with hires graphics, com- 
plete synthesizer control, full screen editor, pro- 
gramming tools, assembler. 
ISBN 0-916439-32-1 S39.95 

C LANGUAGE COMPILER • a full C 
language compiler Conlorms to Ihe Kernighan & 
Ritchie standard, but without bit fields Package in- 
cludes editor, compiler and linker 

ISBN# 0-916439-28-3 S79.95 

ASSEMBLER MONITOR-64 • a 

macro assembler and extended monitor package 
Assembler supports floalmg point constants 
fvlonitor supports bank switching, quick trace, single 
step, more. 
ISBN# 0-916439-11-9 S39.95 



XREF-64 • indispensible tool for BASIC pro- 
grammer cross-references all references to variable 
and line numbers. 
ISBN# 0-916439-27-5 $17.95 

OTHER TITLES ALSO AVAIL- 
ABLE ■ WRITE OR CALL FOR A 
FREE COMPLETE CATALOG 

Call today for the name and address of 
your nearest local dealer. 

PHONE: (616) 241-5510 

For postage and handling include $4.00 
(S8.00 foreign) per order. l\/loney order and 
checks in U.S. dollars only. Ivlastercard. 
VISA and American Express accepted. 
f\/lichigan residents '||ib| 



inci 4% sales tax. 
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FREE PEEKS & POKES WALL 
POSTER INCLUDED WITH 
EVERY SOFTWARE PURCHASE 



You Can Count On 
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P.O. Box 7211 Grand Rapids. Ml 49510 - Telex 709-101 ■ Phone 616/241-5510 
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bulk shipments of the monthly news- 
letter, product brochures, and— far- 
fetched as it sounds— a "rehable" 
telephone contact at Commodore. 

Commodore Business Machines, 
Inc., 1200 Wilson Drive, West Ches- 
ter, PA 19380. 

EDUCATIONAL PROGRAMS 

The Keyboard Chord/Scale Mas- 
ter sharpens the user's keyboard abil- 
ities through a variety of sight and 
sound reinforcements. Chonl Display 
and Scale Display let the user view 
and hear the most common chords 
and scales. Chord Review and Scale 
Review include drill, quiz, and com- 
pete options. The Compare mode re- 
quires comparison of one chord with 
another in the same or a different key 
signature. For the C-64; $39.95 plus 
$1.50 postage {MI residents add 4% 
sales tax). 

Valhala Software, 205 E. Hazel- 
hurst, Ferndale, MI 48220. 

Kidbit Software has enhanced two 
previous VIC releases and combined 
them on one disk for the 64. The 



Same/Not Same Game lets children 
build a spaceship by telling the Cen- 
tral Computer which shapes, colors, 
directions, or letters are different 
from the others in the group. Alpha- 
Bee Sequence requires children to 
supply missing letters of the alphabet 
to a forgetful bee. $26.95, 

Kidbit Software. 7001 Sunkist 
Drive. Oakland. CA 94605 (phone: 
415-638-1243). 

The Chipwits are 16 robots which 
children must help through 49 differ- 
ent mazes. They do this by program- 
ming the robots to move, feel, see, 
smell, reniember, and more. For the 
C-64; $29.00-539.00. 

Epyx. Inc.. 1043 Kiel Court, 
Sunnyvale. CA 94089 (phone: 408- 
745-0700). 

Wurhle incorporates vocabulary 
and spelling training into a compu- 
ter board game for ages 10 up. The 
game editor allows for hundreds of 
rule variations, 

Sher-Tek, P.O. Box 6808, Stn. "T; 
Ottawa. Ontario, Canada K2A 3Z4. 

An elementary through high school 



•FREE* 
UTILITY/DEMO 

DISK 
W/PURCHASE 




CALL 

FOR 

QUOTES 



DOODLE 

GRAPHICS PROGRAM DRAW, COLOR, 
CIRCLES- BOX. LETTERS. PRINT 
ON DOT-MATRIX PRINTER 
(EXCEPT 1526) 



33^5 PRINT SHOP 

BANNERS. GREETING CARDS, 
POSTERS. LETTERHEAD. PRINTS 
(EXCEPT 15261 

EXPANSION SET 



as 



37 



CALL 



NEW** 

DOODLE Visits Print Shop 

CONVERT DOODLE PICTURES FOR USE IN PRINT SHOP 
(SCREEN MAGIC) VICE/VERSA. MENU DRIVEN. 

DOODLE, PRINT shop, DVP 

DVPWITH PURCHASE OF DOODLE OR PRINT SHOP 



19' 
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SPECIAL* 



BUSCARD II 

IEEE, 4 BASIC, MONITOR 
SWITCH SELECT DEVICE 4-10 
IEEE or SERIAL BUSS 

C-64 LINK II 

IEEE 4.0 BASIC 
SERIAL and/ or IEEE 
FAST IEEE ACCESS 
TRANSPARENT 

COVOX 
COMPUTER EYES 



140°° 



125° 



77°° 
105°° 



79*5 

1395 

SYSRES 79®^ 

BASIC EDITOR 
COMPLETE RENUMBERING DEFINE KEYS, 
FUNCTIONS SCREEN DUMP FINDS. 
CHANGES RELOCATABLE. WORKS EVEN 
AFTER RESET 
■THE CADILLAC MICRO MAG. 

FLEXFILE 2.2 

MULTIPLE KEYS 
EASY TO USE 

SFD1CX)1 

IMEG- IEEE DRIVE 



599s 

400°° 



-To Order: CALL or WRITE - 



P.O. Box 391 

TERMSiSend check or money order for total 
purchase price, plus $2.75 (or shipping via 
UPS. $4.00 for shipping non UPS. Personal 
checfis (allow 1 days to clear). 
NY RESIDENTS ADD APPLICABLE TAXES, 



White Plains, NY 1 0602 



SOFTWARE LINK 

283 Mamaroneck Ave. 

White Plains, NV 

(retail outlet 



914-683-2512 
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MHICH IS 
DIFFERENT? 



Same/Not Same Game: for ages 3 to 7. 
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teacher's guide, TJie Investor's Chal- 
lenge is designed for use with Blue 
Chip Software's Millionaire slock 
market simulation. Tycoon commod- 
ity market simulation, and Bamn real 
estate simulation. Price is S6.95. 

Blue Chip Software. Inc.. 6744 
Eton Avenue, Canoga Park, CA 
91303 (phone: 818-346-0730). 

SOUNDCHASER 64 

Passport MusicSoftware's $199.00 
Soundchaser 64 is the first four-oc- 
tave music keyboard for use with the 
64. Included is software that trans- 
forms the 49-note music system into 
a full nine octave range, as well as 
allowing the user to create a variety 
of instrument sounds for either a 
monophonic or polyphonic keyboard. 
The keyboard can be used with Pass- 
port's Macmusic ($49.95). which pro- 
vides a visually oriented music com- 
position system. 

Passport also distributes a line of 
Computer Sheet Music, allowing a 
student to play at his own pace while 
the onscreen notes he plays correct- 
ly change in color. 

Passport Designs, Inc., 625 Mira- 
montes Street, Suite 103. Half Moon 
Bay. CA 94019 (phone; 415- 
726-0280). 

MASTERDISK CHANGE 

In February's Scuttlebutt we an- 
nounced Masterdisk. which compos- 
es a master catalog of your disk li- 
brary. Since then, Integrated-Software 
has discovered that the 4-minute 
backup program included on the disk 
was pirated from a copyrighted Ger- 
man program. Taking its place will 
be Copy 18, which will copy track 18 
(the disk directory) from any disk and 
make modifications. 
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WHEN YOU BUY 

TIMEWORKS SOFTWARE 

YOU GET MORE 

THAN SOFTWARE. 



You get our Customer 
Technical Support Team 

At the other end of our toll-free hotline, 
you'll find our full-time Customer Techni- 
cal Support Team, With Timeworks, you 
get immediate answers . . . free of charge 
to all registered users. Our Timeworks 
experts help you use each of our pro- 
grams to its fullest potential. Not everyone 
provides this necessary support, let alone 
for free. 



You get our liberal 
Trade-Up Policy 

if, at any time in the future, you wish to 
buy an updated version of any Timeworks 
program, or if you upgrade your computer 
system, you may exchange your original 
program for any other program we 
publish. Here's how: 

• Purchase your new Timeworks program 
at your favorite dealer. 

• Send us the Timeworks program you 
wish to trade in, your paid receipt for 
the new program, and the title of the 
Timeworks program you would like in 
exchange. It's FREE OF CHARGE, if 
the suggested retail price of both pro- 
grams is the same. Or, include your 
check or credit card number to cover 
only the retail price difference between 
your old program and the one you wish 
in exchange. Please add $4.70 for 
shipping and handling, in either case. 

• We'll be glad to furnish a list of 
Timeworks' suggested retail prices, 
upon request. 



You get our Money Back 
Guarantee 

If you can find anything that works belter 
for you, we'll buy it for you. Simply send 
us your Timeworks program, your paid 
receipt, and the name of the program you 
want, along with your check or credit card 
number for any retail price difference. If 
it's available, we'll send it to you.* 



Look for these and other Timeworks pro- 
grams at your favorite dealer. Or contact 
Timeworks, 444 Lake Cook Road, Deer- 
field, IL 60015. Phone: (312) 948-9200. 



Available for Apple, IBM, Commodore, 
and Atari computers." 




More power for your dollar 

* Ohr Mid Kr 90 days titm dale ol purchase. 

" R m i M i inil »ai)enwrttso< Appte Comtiuief. Inc.. Inlemafeiiial Business Machines ConMraMin. ComnicidDfe 

Computer Systems, ana Atari. Inc. 
C 1985 Timeiiatis. inc. AH lights reseived. 
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may catch up with the way 

CompuServe's Electronic Nall 

Lets You Shop TODAY 



Presenting the computer 
shopping service that delivers 
discount prices, name-brand 
merchandise, and in-depth 
product information. 

To make your computer even more 
useful, join CompuServe and shop in 
our Electronic Mall. Easy enough for 
beginners, it's open 24 hours a day, 
7 days a week. And it offers a wide range 
of goods and services from nationally 
known stores and businesses including 
Bloomingdale's, Waldenbooks, American 
Express and Commodore. 

CompuServe's Electronic MaU'" lets 
you shop at your convenience in all 
these departments: 

The Auto Shop, Book Baxaar, Finan- 
cial Mart, Leisure Center, Merchandise 



Mart, Newsstand, On-line Connection, Per- 
sonal Computer Store, Record Emporium, 
Specialty Boutique and Travel Agency. 



Take the CompuServe Electronic 
Mall 15-Minute Comparison Test. 

Wiatyou can do in 15 minutes 
shopping the Electronic Mall way. 

• Access descriptions of the latest in 
computer printers, for instance. 

• Pick one and enter the order 
command. 

• Check complete descriptions of 
places to slay on your next vacation. 

• Pick several and request travel 
brochures. 

• Access a department store catalog 
and pick out a wine rack, tools, 
toys... anything! 

• Place your order. 

What you can do in 15 minutes shop- 
ping the old way. 

• Round up the family and get in 
the car. 



The Ekclrank Mair b a Wfvia of CompuServe Inc. and LM.Bcny&Cbmput)' 
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The Electronic MaU— A Valuable 
Addition to the Vast World of 
CompuServe. 

CompuServe Information Services 
bring you information, entertainment, 
personal communications and more. 

You can access CompuServe with 
almost any computer and modem, 
terminal or communicating word 
processor. 

To buy a CompuServe Subscription 
Kit, see your nearest computer dealer. 
To receive our informative brochure, or 
to order direct, call or write: 

CompuServe 

Information Services. P 0- 8ok 20212. 

5000 Arltnglon Cenlre Blvd . Columbus. OH 43220 

800-848-8199 

In Ohio call 614-457-0802 
An H & R Slock Company 
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Integrated-Software Systems, P.O. 
Box 1801, Ames, lA 50010 (phone: 
515-233-2992), 

VCR TITLE GENERATOR 

The Video Tiile Eclilor lets C-64 or 
VIC 20 users incorpordte title screens 
into their video tapes without the 
need for a camera, second VCR, or 
high-priced character generator. In- 
cluded are over 20 displays tor birth- 
days, weddings, vacations, and more. 
Customized displays can also be de- 
signed. Price is $29.95, on either cas- 
sette or disk. 

Videoware, 19777 W. 12 Mile Rd.. 
Suite 180, Southtield, MI 48076 
(phone: 313-626-7208). 

HANDICAPPING PROGRAM 

The Racing Analysis Program 
Package includes Tlioroitghbred , 
Harness, and Bet Return programs 
which make predictions based on past 
performance data. About five min- 
utes are required to enter the data tor 
each race. For the 64 or VIC 20, on 
cassette or disk; $29.95 plus $2.00 
postage from Software Exchange. 
P.O. Box 5382, W. Bloomfield. MI 
48033 (phone: 313-626-7208). 

WILL WRITING SOFTWARE 

By simply recording your answers 
to a series of questions, the Willwrit- 
er disk/software package generates 
and prints a will (good in every state 
except Louisiana) and provides you 
with information on signing and wit- 
nessing. You may update your will an 
unlimited number of times. For the 
C-64: S39.95. 

Nolo Press. 950 Parker St., Berke- 
ley, CA 94710, 

ASTRONOMY SOFTWARE 

For readers who thought Commo- 
dore's Sky Travel went where no pro- 
gram had gone before, a list of 45 as- 
tronomical software programs has 
been published by the non-profit As- 
tronomical Society of the Pacific. A 
list of reference books is also in- 
cluded. Send a SI.(X) donation to cav- 
er postage and handling to A.S.P. 
Computer List, 1290 24th Ave., San 
Francisco, CA 94122 (phone: 415- 
661-8660). 





The Paper 
Catcher will 
provide a 
convenient 
landing 
place on top 
of your 
printer for 
continuous 
feed paper. 
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THE BUDDY SYSTEM 

The Paper Catcher ($49.95) stacks 
printed sheets of continuous-feed pa- 
pcT neatly atop a variety of 80- and 
132-coIumn printers. Vinyl feet pro- 
vide added stability. Built of light- 
weight, high impact plastic, its putty 
color will blend in with most hard- 
ware. 

Buddy Products, 1350 South Leav- 
itt St., Chicago. IL 60608 (phone: 
312-733-6400). 



FAST LOAD LOWDOWN 

From the research lab of Ahoy! 
writer Cheryl Peterson comes the fol- 
lowing addendum to last month's ex- 
amination of Fast Load from Epyx: 
Commodore computers interfaced to 
a printer through certain parallel 
boxes will not be able to use the pro- 
gram's quick copy function. A tech- 
nical support person at Epyx ex- 
plained that Fast Load requires all the 
data lines, rendering it unoperation- 
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EVALUATES FROM RACING FORM! 
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PROGRAM 
GLO. Thoroughbred "Gold" Edition"^** 

A "Full" featured IhaiOughbiM dn^lysis deh5ignB{j lor the profes- 
sional and senoyj novice }i 59 g5 complale 

EGLD. Enhanced "Gold" Edition^ 

■Gold" Edition wiih complete Master Bello^T^M syslem mtegraied 
aniD the same disk This powerlul program vtrill tran^lei all horses 
and scorm lo ihe bet analyse wi|h a ""sirT«gie keygtroKo " 

rMaster Beltof^M included) SI 59.95 complete 

GLTD. Limited "Gold"'^" 

Enatjtes Proieuionni Hsntficappera lo asngn speatic values to rhe 

racrkg vanabicrs ' mey" leei are impofiani 

PROFESSIONAL HANDICAPPING SYSTEMS 

% "ij ^-9 

Age 5 Consistency 1& SpecNj tO 

Class 15 Jockey 15 Wotkouis 

Conditton 10 Trainer 5 Time Ol Year 

Earnings 5 Posi 10 ConsiSency 5 

tOO% Is EvefyIh<r>B OK (Y/N) 

Create piogiam weight Oased on a paMhCular track and lir* lune i1 
lor miKlmum wm percentage This pro^rarn is dDsigned 'or ease 
ol use" The user needs no programming evpahencc. 

{»ntains tntegraiea BettoiTMi 5299.95 mn^oieit? 



GD. Gold Dog AnalysJa^*' 

The only pioiesstonai dog handicapper on the rnarkel includes 

1) Speed 6J Condiiion 

2) Post Tooay 7\ Running Style 

3) Kennel 6] Weigiht 

41 Post Last 9) All new internal weighting 

5) OistarK« lOJ NEW class irtdicaloF 

II you are near a gFeyhountf Hack. >ou can t afAvd pqx \o usd ^s 
^n^^^ SI 49.95 complete 

iwtth integrated MeslOf B«1(orTM| S199.9S 
Limited Dog™ $299.95 






MHlH, Master Harness Handicapper'^'^ 

PiotessriMiAl aotiwafe desrgnea to provide a thoni'uqh analyses of all 
[roller and pacer racH? ^n Nrath AmfinCa Ar\<\ Canada Features 
Class Post Posi|ior>s Time Fmjsn 

Drivef Track Conditions Time Last Quariei 

Days &ir>tre Last Trainer Track Raiirr^ 

Gender Time % Temp Ainwance 

5159.95 complete w^ntegrated Master Bettoi'TA' S1 99-95 

PPX. Professor Jones^ Football Predictor, Prof. Plx™ 
Complete Football Analyses *n\i\ Dita^Bsse. 

1) Overlays ■*] "OvefifUnder ' oois 

2) Point SpfeadK i\ C^la Base Stals 

3) Super plays' 6) Holds 100 teams 
HIghnt parcenlage of wir^rwri 19B3 539.95 complete 

599,95 wtth Dala Sa&e Msnagemeni 

NBA. Bssketbail^'' 

This data base managed analyses wiJi piavtilQ ine uSGF wittt ALL 
OeltiiH) silual^nns while storing rolevani mlormalion on trie disk 
599-95 GOmplele wfManual S129.95 NBA/CoHege version 

LOT. LOTTEflY ANALYSIS"* 

Slaiisiica! comparison program designed lo ttetect sjijite patterns 
ifh winning loitery numbers 
S79.95 complete w/Manuat 



T, Hrof. PIK" 



$99.95 «iilh Lotio 



BROCHURE AVAILABLE 



Send check I money ofder / VISA / Mas(ercharg& 
(Include expiration dale} to: n x . ^ 

Proi. Jones 
1940 W. State St. 
Boise. ID 83702 

TELEPHONE 
(208) 342-6939 



TERMS FREE SHIPPING ALL SOFTWARE Add S6 00 hard- 
ware r S6 00 C O D, / UPS Blue S6 00 / Oul of Counlry S9.D0 
/ ID Residenls 44b \ 3 weeks personal checks / Cash price 
only, add 2% Visa, MC r Prices subject 10 change 



IBM, APPLE, TRS-80, 
C-64 AND OTHERS 



Reader Service No. 268 



al with certain interfaces. Two of the 1 
primary offenders, unfortunately, are '^ 
also two of the most popular: Card- 
co and the (Orange Micro) Grap- 
pler. 

The documentation also fails to 
point out that a Commodore 1541 
must be used; Fast Load will not 
work with an MSD, Indus GT, etc. 
Finally, don't misunderstand Epyx' 
claim that the program will work with 
most copy-protected software. It will 
run most copy-protected software. It 
will not copy it. 

Epyx, 1043 Kiel Court. Sunnyvale, 
CA 94089 (phone: 418-745-0700). 

BOOK RELEASES 

The Compuierfacix series from 
Howard W. Sams & Co., Inc.. re- 
veals the inner workings of Commo- 
dore hardware with wiring diagrams, 
photos, disassembly instructions, 
parts lists, troubleshooting tech- 
niques, and other repair data. Avail- 
able for the C-64, C-16, Plus/4, VIC 
20, 1525 printer, 1701 monitor, or 
1541 disk drive; S19.95 each. 

Also newly released, the Commo- 
dore 64 Troubleshooting and Repair 
Guide covers proper diagnostic tech- 
niques and lists specific malfunctions 
in trouble charts organized by com- 




Computerfacts series: diagnostic aid. 
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puter sub.system. List price is $18.95. 
Finally from Sams, Commodore 64 
for Kids from 8 to 80 works hands-on 
with the new user to create simple 
programs. Numerous illustrations are 
included. Price is S12.95. 



A catalog of 347 book titles is 
available from Howard W. Sams & 
Co., Inc., 4300 W. 62nd St., Indi- 
anapolis, IN 46268 (phone: 1-800- 
428-SAMS or 317-298-5400). 

Four new C-64 publications from 
Prentice-Hall; 

Easy Interfacing Projects for the 
Commodore 64 ($10.95) provides 
dozens, ranging from mechanical ac- 
tuators to analog-to-digital convertors. 

Multiplan for the Commodore 64 
(SI4.95) offers a tutorial and over a 
dozen home and business applica- 
tions (with listings). 

With an emphasis on graphics gen- 
eration, Advanced Machine Code 
Programming for the Commodore 64 
(S12.95) explains how to tap into the 
64's 6502/6501 microprocessor. 

More BASIC Is Child's Play, Com- 
modore edition ($19.95) picks up 
where its precursor left off, teaching 
children as young as 7 to program. 
Prentice-Hail, Englewood Cliffs, NJ 
07632 (phone: 201-592-2640). 

Einstein's Beginner's Guide to the 
Commodore 64 (S7.95) provides a 
general introduction to computer use 
and programming. Harcourt Brace 
Jovanovich, 1250 Sixth Ave., San Di- 
ego, CA 92101 (phone: 619-231-6616). 

Understanding Microprocessors 
(S14.95) covers software, program- 
ming concepts, assembly language, 
and applications of 4-, 8-. and t6-bit 
microcomputers. Texas Instruments 
Inc., P.O. Box 225474, M/S 8218, 
Dallas, TX 75265 (phone: 214- 
997-3926). 

IT WRITES THE SONGS 

Cantus. the Music Improviser pur- 
ports to be the first microcomputer 
program that invents its own music. 
Instead of notes, the user enters 
choices for tempo, harmony, rhythm, 
counterpoint, voice range, and tone 
color, from which Cantus creates 
three-voice improvisations which play 
continuously with no repetition. Each 
set of choices becomes a "patch" 
which can be saved and later recalled. 
Price is $54.00 plus $2.00 postage 
and handling. 

Algo-Rhythm Software, 176 Min- 
eola Blvd., Mineola, NY 11501 
(phone: 800-645-4441 or 516- 
294-7590). 
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PORTHEC-64 




t the time of creation, the 
god Brahma placed sixty- 



"^^r four rings, ranging from 

^ 1 smallest to largest, on the 
first of three golden towers in the 
temple of Benares. He enjoined his 
priests with the task of moving the 
rings, being careful never to place a 
larger ring atop a smaller, until the 
rings were placed in like manner on 
another tower. When this has been 
accomplished, in about six hundred 
billion years, the universe will come 
to an end. Such, at least, is the legend. 

Actually, Edouard Luca^, who in- 
vented the Tower of Brahma puzzle, 
devised this story to popularize his 
creation. The puzzle has been a fa- 
vorite for several generations. Now 
you can try your skill on a less for- 
midable (though equally challenging) 
version using your Commodore 64. 
You may select to attempt from two 
to eight rings. Each additional ring 
represents a doubling in difficulty. To 
move two rings requii^es three moves; 
three rings, seven moves; four rings, 
fifteen moves; eight rings, two Hun- 
dred fifty-five moves. The number of 
moves is determined by the formula 
2t (number of rings)-l. Assuming 
the priests of Brahma moved one ring 
each second, it would require (2 f 
64) =1 seconds, or about six billion 
centuries, before the smallest ring 
would be placed on top of the tower. 

With up to four rings, the puzzle 
is fairly easy to solve. After that, 
though, you must plan your moves 
carefully in order to complete it in 
the minimum number of moves. To 
end the puzzle, press 'fll Also, if you 
become completely baffled, again 
press 'fl' and you will be asked 'Com- 
puter Solution (Y/N)?". Answer 'T 
and the puzzle will reset and solve 

SyOANIEtMIUSI? 



itself. The rings will begin to magi- 
cally float across the screen and po- 
sition themselves from one tower to 
the next until the final orientation is 
achieved. 

The three towers and their base are 
built from keyboard character graph- 
ics in lines 2150-2240. Each ring is 
a sprite defined within lines 1990- 
2050. The DATA lines for each sprite 
show a way of conserving memory. 
The interpreter automatically READs 
a value of zero if a value is not en- 
tered. Another handy (though seldom 
used) command in the program is 
FRE(O). Normally, this function is 
used to calculate the amount of free 
RAM available tor a program and its 



variables. In a program which creates 
and manipulates strings such as Tow- 
ers, it performs a more valuable ser- 
vice. String vaiaes created during the 
course of a program run are stored 
in upper memory one beneath an- 
other until space is depleted. At this 
point, the process of garbage collec- 
tion begins and may take several min- 
utes, during which time the program 
stops and the keyboard is dead. Us- 
ing a statement such as CT=FRE(0) 
forces aa immediate garbage collec- 
tion. Since this is done on each move, 
the number of strings that have ac- 
cumulated is small and the process 
is instantaneous. D 
SEE PROGRAM LISTING ON PAGE lU 
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IHE BACK CHAR 



ON SALE 




Tfea Hnt "lntotllfnit" Chik. FORMERLY (3995' New on sale 
imm S21I.S&. REDUCE THE EFTtCT Of fiMVin ON THM BUM. 

Sitlifig itgi^ly m a axixenlion^ that* your kwffif back is sup- 
pwbn^ t^e TOTJU. WENirT ol your txxly pli£ additional weight due 
to ttie dmtiward erteci ol gravitv UnbrtunaKrfy most chairs are de- 
signed lof appearance, not ior comtoft 

THE BACK OMin IOUITMM-Smin<] on the Baa Chair le- 
lieves ^u! back Irom suoportrng ihe total weigJll ol yviur tx>dy t^y 
dislritMJling yuji wciglil betv«en ^r Igwer back and legs ^bur legs 
support vou when stantling, /ur low tiat^ suworts ^ 
Cofnt>[ne them both m a cwntortaWe sitting posture and you relieve 
ttw unnecessary sliess on ^)ur back. When $(lting on itie Bach 
Chair ynj'u teei uwe tclaxed and sit up pertedty stra>gtit 

Standard C^aii made of hardwood i3^ wnti final layer ot 
Genuine Oak. Adjustable Chair made Injni solid ttardwood wf(h 
beaulilul Oak Frnish Both come with paMorf stM\ ani kuM rata 
upttelSleied in ChtuxiaOB Bmwn O^ikt ami i^ Inquines Envrted 



SHOP nSTER BY PHOHE 
1-805-966-7187 

Of said d cFwic v )njr acdit cvd i (Difmi^ Club, VS^ MjE»C«d. Amencai) 
E/inssI ki m BACK CHMR (SBntaiO WaW. m» a. MusBM Mtdtl, 
Ma96«-sfeaxM>c»Hn>)(lusS9.9S iHiM iCmdwomeii. siloo 
ittm^. amentum mam On SarynoCaannDlUsMn- 
«itil«iMwi 1SdiyslVf«»iifldAtssst)ip(H)Qi 
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Do you want to put a 
;Song into your program? 
Here's a routine that ets 
you typ© in the standard 
f musical notes— and 

turns them into music 
automatically 



onti-«=vk:ani3m 

A ^ ^ hen the Commodore 64 first came out, 
■ ^1 ^ one of its most touted features was the mu- 

1/ \/ sic capability. I had programmed on the 

F r Atari, and naturally I was a httle skeptical 

about the 64's three voices -didn't the Atari have/owr? 

Then I heard what the 64 could do with sound envel- 
opes and waveforms, and I was willing to foi^ive the miss- 
ing voice for the great improvement in quality. 

Trouble was, all that wonderful sound was locked away 
from the BASIC user in a series of POKEs. They didn't 
give Commodore BASIC a SOUND statement compar- 
able to the Atari's, which set the pitch, the distortion, 
and the volume in a single fest statement. 

Instead, you have to set up the sound envelope and gen- 
eral volume in advance, and then each time you want 
to change the pitch or sound a new note, you have to: 

1. Set fM'o frequency registers /or each voice. 

2. Gate each voice open to begin its tone. 

3. Gate each voice closed to stop. 

Since every single one of these steps is a POKE, a 
notoriously slow command in Commodore BASIC, start- 
ing and stopping a single three-note chord takes Twelve 
POKEs and far, far too much time. 

About a year ago, I got a PCjr and, despite that ma- 
chine's many drawbacks, I saw for the first time what 
a humane music program system could be. 

Don't misunderstand— the Commodore 64 still has far 
and away the best sound chip on the market. The SID 
hasn't been matched by anybody. 

But the PCjr has a mini-language for playing music. 
All you do is set up a string that contains the letters for 
the musical scale— C, D, E, F, G, A, and B— along with 
instructions about sharps and flats, octave changes, and 
the duration of the note, and BASIC plays the string. It 
even does it in the background, so that your program 
can go on long before the music's over. 

All this seemed to me to be one more proof of the terri- 
ble conspiracy of the computer manufecturers. Take it 
from me, they all get together once a year and have a 
meeting like this: 

COMMODORE: Look, we've got the best sound chip 
on the market in our new computer. You guys can't com- 
pete with it. 

ATARI: That's OK -as long as you make your screen 
display all ftizzy and leave us as the only computer with 
a decent TV display, we'll let you have better sound. 

IBM: You can have sound, Commodore, and you can 
have video. Atari. What we'll do is put superb sound and 
graphics commands into our BASIC. Real easy-to-pro- 
gram stuff. Atari, you can have a SOUND statement, 
but don't make it too easy to use. And you. Commodore, 
you can't do anything for them. Just a bunch of POKEs. 




5i>V| 
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ADVENtURE GAME 
TUTORIALS 



Disk 1 


Disk II 


Disk III 


TEXT ADVENTURES 


MEGAVENTURES 


GRAPHIC ADVENTURES 


ZORK 1 


ULTIMA II 


GOTHMOGS LAIR 


ZORK II 


ULTIMA III 


MASK OF THE SUN 


ZORK III 


ULTIMA IV 


DEATH IN THE CARIBBEAN 


ENCHANTER 


RETURN OF HERACLES 


BLADE OF BLACKPOOLE 


SORCEROR 


QUESTRON 


CRITICAL MASS 


STARCROSS 


Only $9.99! 


GRUDS IN SPACE 


SUSPENDED 




ULYSSES AND THE GOLDEN FLEECE 


PLANET FALL 




WIZARD AND THE PRINCESS 


DEADLINE 




ASYLUM 


WITNESS 




THE INSTITUTE 


Only $9.99 ! 


Only $9.99 1 



Have you ever played an Adventure Game where you just plain got stuck and couldn't get any further? 
Well, here's the answer — Phoenix Red's Adventure Game Tutorials, They can be used as hints or they 
win tell you exactly what to do to get out of all those sticky situations. These Tutorials are written for 
your computer (A Commodore 64) not someone elses. so they work. 

"We put out money where our 
software is, not our copy 
protection." 
Send check or Money Order to: — PbOeniX ReD 

Phoenix Red Software 

2705 Oak Dr. 
Houston, Texas 77539 

Call 713-280'8113 for more info. 
Header Service No. 270 



We pay postage and handling. 
A must -have for all adventures. 
Order yours today ! 



\ 



COMMODORE: That's fine. 

every one of yours^ 



We'll still sell five for 



THE ALL-PURPOSE MUSIC ROUTINE 

Are you going to sii still for that kind of collusion? 
Am I? Not a chance. 

Instead, in this nionth's column I bring you Card's All- 
Purpose Music Player. To use this routine, you save it 
and then load it in at the beginning of your program- 
ming session. It uses up line 10, lines 60-70, and lines 
9000-9990. Then you write your program around it. Put 
your movement routine in lines 20-50, for instance, and 
your main loop at 100. Program, in other words, just like 
normal . 

Whenever you want to play a tune - or part of a tune - 
have your program GOSUB 60, and a phrase of the tune 
wii! play. 

STRINGING ALONG 

Best of all, to enter the melody, you don't have to cal- 
culate all the frequency values for the notes you're us- 
ing, or set up a bunch of DATA statements. Instead, you 
enter each phrase of the music as a string, using the stan- 
dard musical alphabet -the scale C, D, E, F, G, A, and B. 
This means that you can transfer a song more or less 
directly from sheet music or, if you're good at music, 
right out of your head. All you have to do is divide the 
melody into a series of usable chunks, called "phrases." 
Each phrase can be as long as 255 characters, but for 
sheer practicality you'll probably break the music up into 
much shorter phrases. 

The note strings are set up starting at line 9500 in a!! 
three versions of the program included here (Tliree-Voice 
Player, One-Voice Player, and Broken Melody). 

Line 9500 tells how many voices you're going to use, 
minus I. That means that for three voices, you type 
EV%=2; for two voices, you type EV%=1. (One-Voice 
Player has no line 9500, since only one voice is possi- 
ble with this version of the routine. This allows it to be 
streamlined, and the music can play much faster.) 

In line 9510, the variable ES% is set to the number 
of phrases in the song, minus I. That means that if your 
song has 9 phrases, you will type ES%=8. 

Starting at line 9520, the actual music strings are set 
up. There are three string types for each phrase: 

Duration. MDS{PH) sets the duration for each note 
in the phrase. This is the same for all three voices -the 
three voices must each execute exactly the same number 
of notes (or rests) per phrase. The duration string con- 
sists of numerals from to 9. is the shortest duration, 
and 9 is the longest. By changing, say. the fifth number 
in the MDS{PH) string, you change how long the fifth 
note of that phrase will .sound. 

(The.se duration numbers are used as an index into a 
duration array, DU%( ), which is set up at lines 9200 
and 9210. If you want to change how long a duration \ 
lasts, just change the second number in the DATA state- 
ment in line 9210.) 



Melody. ME$(PH,VC) sets the pitch or frequency for 
each note in the phrase, with a separate string for each 
of the three voices. The notation is very simple. To play 
the note A, type A. To play the note B, type B, and so on. 

To play sharps, type the letter while holding down 
SHIFT. For in.stance, to play F-sharp, hold down SHUT 
and then type F. A graphics character will appear in the 
string. 

To play flats, type the letter while holding down the 
COMMODORE logo key To play B-flat, hold down 
COMMODORE and then type B. Again, a graphics char- 
acter will apf)ear in the string. 

To make the voice silent for one note, type the @ sign. 

Octave. MV$(PH,VC) sets the octave in which the note 
will be played. There are eight possible octaves, from 
(the lowest notes) to 7 (the highest notes). Each posi- 
tion in the MV$(PH.VC) string corresponds to that voice's 
note in the melody string. 

In other words, the octave string MV$( ) determines 
which octave a note will be in. and the melody string 
MES( ) tells which note within that octave will be played. 

If several notes in a row are in the same octave, you 
only have to enter the octave number for the first note, 
and then enter spaces for the subsequent notes. There- 
after, for that voice, you need only enter octave num- 
bers when the octave changes. 
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RESET SWITCH 



Only $ia95 




•3ASIC RECOVER PRQGRAH ENCLUOED 
•UhlflqlcB "Frozen" Progrina 
•Plugs Into Serial Port 
•Allows Full Us« of s«ri«l Port 
♦Extends the Llfa of Vour Computer 
*CoApacit>le With ConBodara «4 4nd VIC 
• \ Y«ar tiarrancy 



WAIL CHECK Ofl MOHEV OHDEPI TO: 
CA AeBia«nts add St sales tax 
SI. 50 for shipping 



MICAOVATIONS 

16496 BERKARDa CTR. DR. 

SUITE 30S 

SAN DIECO, CA 92128 



P«*l«f Inquire* wlcoaed Phon* (619) 487-5107 
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Each octave consists of the notes from C up to the next 
B. That means that if your melody string consisted of 
an F-major scale, played in voice 0, and you wanted the 
scale to play very quickly, your strings would be typed 
like this: 

Duration: MD$(PH) ="00000000" 
Melody: ME${PH.O)-"FGABCDEF" 
Octave: MV${PH,0)="4 5 

Notice that there are the same number of characters 
in each string in the same phrase. (The B would actu- 
ally be a B-flat, and you would type COMMODORE-B.) 
The octave changes when the scale goes up from B-flat 
to C. In other words, C is the lowest note of each octave. 

(You can cheat, however, and type C-flat, which gets 
you a B in the next octave down without changing oc- 
taves. Likewise, you can type B-sharp and get the C from 
the next octave up. But why bother?) 

PLAYING AROUND 

This is really all you need to know to use this routine. 
All three programs use the same fundamental routine, 
with only a few changes, so once you've typed in one, 
it will be relatively easy to make the changes for the other 
programs (One-Vbice Player has the most differences). 



Program Your Own EPROMS 



t 



VIC 20 
C64 



$99.50 



Q) 
■D 
(0 
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E 
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PLUGS INTO USER PORT. 
NOTHING ELSE NEEDED. 
EASY TO USE. VERSATILE. 

• Read or Program. One byte or 
32K bytes! 

OR Use like a disk drive. LOAD, 

SAVE, GET INPUT PRINT CMD, 

OPEN, CLOSE— EPROM FILES! 

Our software lets you use familiar BASIC commands to 

create, modify, scratcti files on readily available EPROM 

cfiips. Adds a new dimension to your computing capability. 

Works witfi most ML Monitors too. 

• Make Au(o-Star1 Cartridges of your programs. 

• The promenade'" CI gives you 4 programming voltages, 
2 EPROM supply voltages, 3 intelligent programming 
algorithms, 15 bit chip addressing, 3 LED's and NO 
switches. Your computer controls everything from software! 

• Textool socket. Anti-static aluminum housing. 

• EPROMS, cartridge PC boards, etc. at extra charge. 

• Some EPROM types you can use with the promenade' 



2758 2532 462732P 27)28 

2516 273? 25M 27256 

2716 27C32 2764 68764 

27016 2732A 27C64 68766 



5133 X28I6A" 

5143 52B13- 

2815" 4a016P' 

2616- 
'Donolek DlncucaHy aAsatt* ffPOi 



Call Toll Free: 800-421-7731 or 408-287-0259 

In California: 800-421-7748 



MB 



JASON-RANHEIM 

580 Parrott St., San Jose, CA 95112 



22 AHOY! 



Reader Seivice No. 2S6 



To use the routine, all you need to do is type in your 
own songs— setting the values of EV%, ES%, and the 
duration, melody, and octave strings for every phrase and 
voice. Then whenever your program executes GOSUB 
60, the routine will play the next musical phrase. 

There are other changes you can make, however. Lines 
62 and 68 can be altered by REMing one and executing 
the other, to switch from normal to staccato; or you can 
REM them both and get a legato sound (or nothing at 
all, depending on your ADSR envelope). 

\bu can also experiment with different duration val- 
ues at 9210. One limitation, though, is that you cant gel 
any faster than 0. Since this is a BASIC program, not 
machine language, and we're stil! using those POKEs, 
there's a limit to how fast you can go. The ideal music 
system uses machine language routines during the verti- 
cal blank interrupt- but this is a teaching column, not 
a software column, and so we'll stick with BASIC. 

You can also change the elements of the ADSR envel- 
oped by altering lines 9020, 9030, 9040, and 9050; and 
you can change the waveforms in line 9070. Next month 
I'll get into much more detail about how waveforms and 
envelopes are used, and we'll experiment with some sound 
effects; for now, though, you can make your own experi- 
ments by changing one or two parameters at a time. 

The three programs show some of the things you can 
do. Three-Voice Player plays God Save the King (My 
Country. Tis of Thee) using a stately organ tone. One- 
Voice Player plays The Mexican Hat Dance at top speed, 
with a harpsichord like hammered-string sound. Broken 
Melody plays fm on My Hby (from the musical Paint 
Your Migon by Alan Jay Lerner and Frederick Loewe), 
using a fife sound for the melody line and a plucked-vio- 
lin sound for the accompaniment. 

Have Patience. When using the three programs, re- 
member that in order to make the running time for the 
music very quick, most of the work is done during the 
execution of the setup routine at 90(K). Especially time- 
consuming is the conversion of the strings from musical 
notes to values that music routine can use efficiently. A 
song as long and complex as the one in Broken Melody 
takes a couple of minutes to be ready. If we were working 
in machine language, this wouldn't be necessary, but the 
long setup time is the price we pay for being able to en- 
ter the music as musical notes and still have it play rela- 
tively quickly. 

HOW SHOULD YOUR GAME USE MUSIC? 

Obviously, this routine can't be used for background 
music, though that's one of the best uses for music in 
a game. If you've ever sung along with a video game 
(Xevious, Gyruss, and Elevator Action are particularly 
musical, I've noticed), you know that background mu- 
sic can set the tempo and mood, getting more intense 
as the player gets further along in the game. 

But even when the music has to take place in the fore- 
ground, stopping everything else, the phrases of a song 
can be very useful. For instance, in a quiz game, instead 
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A Printer For All Reasons 

Search For The Best High Quality Graphic Printer 



If you have been rookfng very long, you have 
probably discovered thai there are Jusl too 
many claims and counterclaims in the printer 
market today. There are prlnten. that have 
some of the Features you want, but do not have 
others. Some features you probably don't care 
al»uL' others are vitally important to you. We 
understand. In fact, not long ago. we were in 
the same position. Deluged by claims and 
counterclaims. Overburdened by rows and 
rows of specifications, we decided to separate 
all the facts — prove or disprove all the claims 
to our own satisfaction. So we bought printers. 
We bought samples of all major brands and 
tested them. 

Our Objective Was Simple 

We wanted to find that printer which had all 
the features you could want and yet be sold 
directly to you at the lowest price. We wanted 
to give our customers the best printer on the 
marhet today at a bargain price. 

The Results Are In 

The seaKh is over. We hae reduced the field to 
a single printer that meets all our goals (and 
more). The printer is the Gf-SSO from 
Seikosha. a division of Seiko. We ran this 
printer through our battery of tests and it 
came out shining. This printer can do it all. 
Standard draft printing up to a respectable 
(and honest) B6 characters per second, and 
with a very readable 9 (horizontal) by 8 (ver- 
tical) character matrix. At this rate, you will get 
an average 30 line letter printed in only 28 
seconds. 

nLQ" Mode 

One of our highest concerns was about print 
quality and readability. The GP 5S0 has a print 
mode termed Hear Letter Quality printing (HLQ 
mode). This is where the GF-550 outshines all 
the competition. Hands downl The character 
matrix In riLQ mode is a very dense 9 (horizon- 
tal) by 16 (vertical). This equates to 14.400 ad- 
dressable dots per square inch. Mow were talk- 
ing quah'ti^ printing. Vou can even do graphics 
In the high resolution mode. The results are 
the best we've ever seen. The only other 
printers currently available having resolution 
this high go for *500 and marc without the in- 
terface or cable needed to hook up to your 
computer. 

Features That Wont Quit 

with the GF-550 your computer can now print 
40. 48. 68. 80. 96, or 136 characters per line. 
You can print in Anv of 18 font styles. Vou not 
only have the standard Pica. Elite, Condensed 
and Italics, but also true Superscripts and 
Subscripts. Mever again will you have to worry 
about how to print H2O or X^. This fantastic 
machine will do it automatically, through easy 
software commands right from your keyboard. 
All fonts have true descenders. 

One of the fonts we like twst is "ProporUonal" 
because It looks most like typesetting. The 
spacing for thin characters like "i" and "I " are 
given less space which tightens" the word 
making reading easier and faster. This is only 
one example of the careful planning put into 
the GP 550. 




Do you sometimes want to emphasize a word? 
Its easy, Jusl use twid (double strike) to make 
the words stand out. Or, if you wish to be even 
more emphatic, underline the words. Or do 
both. You may also wish to 'headline" a title. 
Each basic font has a corresponding elongated 
(double-wide) version. Vou can combine any of 
these modes to niakc the variation almost 
endless. Do you wnat to express something 
that you can't do with words? Use graphics with 
your text — even on the same line. 

You can now do virtually any line spacing you 
want. Vou may select 6. 8. 7Vi or 12 lines per 
inch. PLUS you have variable line spacing of 
1,2 lines per inch to inlinity (no space at all) 
and 97 other software Selectable settings in 
tjctween. You control line spacing on a dot-by- 
dot basis. If you've ever had a letter or other 
document that was Just a few lines too long to 
fit a page, you can see how handy this feature 
is. Simply reduce the line spacing slightly and 
... VOILA! The letter now fits on one page. 

Forms? Yes! 
Your Letterhead? Of Course! 

Do you print forms? Mo problem. This unit will 
do them all. Any form up to 10 inches wide. 
The tractors are adjustable from 41/3 to 10 in- 
ches. Yes, you can also use single sheets. Plain 
typint. paper, your letterhed, short memo 
forms, anything you choose. Any size under 
10' In width, Nullipic copies? Absolutely! Put 
forms or Individual sheets with carbons (up to 
3 deep), and the last copy will be as readable as 
the first. Spread sheets with many columns? Of 
coursel Just go to condensed mode printing 
and print 3 full 136 columns wide, Forget ex- 
pensive widc-caniage printers and changing to 
wide carriage paper. You can no do it all on a 
standard S'h" page. 

Consistent Print Quality 

Most printers have a continuous loop ribl»n 
cartridge or a sijigie spool ribl>on which gives 
nice dark printing when new, but quickly starts 
to fade after a while. To keep the printers out- 
put looking consistently dark, the ribbons 
must be changed more often than is healthy 
for the pockelbok. The QP-550 solves this 
problem completely by using a replaceable, in- 
expensive Ink cassette which is separately 
replaceable from the actual ribbon. It keeps 
Reader Sendee No. 2ea 



the ribbon loaded with inkatall times. You only 
replace the ribbon when It truly wears out. not 
when it starts to run low on ink. Just another 
example of the superb engineering applied to 
the QP-550. (When you finally do wear out your 
ribtx)n. replacement cost is only $10.95. Ink 
cassette replacement cost is only $5.95. t>oth 
postpaid.) 

The Best Part 

When shopping for a quality printer with all 
these features, you could expect to pay around 
$5(X} or more. Hot any morel We have done 
our homework, Vou don't have to woiry atxiut 
interfaces or cables. Everything is included. 
You need absolutely nothing else to start prin- 
ting — Just add paper. 

no Risk Offer 

Wc give you a 15-day satisfaction guarantee, if 
you are not completely satisfied for any reason 
we will refund the full purchase price. A 1-year 
warranty is included with your printer. 

The Bottom Dollar 

OFS'iOA SliindardrarilMirioCablel *249 95 

0F-55tKP CommoOon: ittiiect Connects. .>. $259.95 

CiF550AT AtjrilOlrett Connrct) $259.95 

0P5.«l/ir Apple II orlle iDiretl Connect) $299 95 

CfSSOPC IBn PC ar Coinpulibles (»o Cdt)lcf... $259.95 

Of SSOn TI99/4A iDiml Coitntxl) $299.95 

fricts tr Auallaliilily Sabjecl to Change. CALU 

.Shipping Is $8.00 - UPS within the continen- 
tal USA. if you are in a huny. UPS Blue (second 
day air) is $18.00, Canada, Alaska, Mexico are 
$25,00 (air). Other foreign is $60.00 (air). 
California residents add 6% tax. These are 
cash prices - VISA aiid MC add 5% to total. We 
ship the next business day on money orders, 
cashiers checks, and charge cards. A i4-d3y 
clearing period is required for checks. 

TO ORDER CAU TOLL FREE 

1 (800) 962-5800 USA 

OR 1 (800) 962-3a00 CAUF, 

or send payment to: 

APROPOS TECHNOLOGY 

1 07 1 A Avenida Acaso 
CamariNo, CA 93010 

Technical Info; 1(805) 482 3604 

4 1984 APROPOS TECHNOLOGY 
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Floppy disk 
performance for 
your Commodore' 
at audio 
cassette prices. 

Entrepo's QUICK DATA 
DRIVE '" brings high speed 
mass storage to the Commo- 
dore 64 "' and VIC 20. De- 
signed as a replacement for 
data cassettes, the QUICK 
DATA DRIVE plugs into exist- 
ing cassette ports. You can 
now load a 24K program in 
about 20 seconds instead of 
8 minutes for audio cas- 
settes and 1 minute for the 
Commodore Disk Drive. 

" Suggested retail price 
under $85 

■ 20 times faster than audio 
cassette 

■ Fully automatic opera- 
tion — needs no rewinding 

■ Highly reliable 

■ Can be used with a second 
drive or an audio cassette 

■ Comes with file manage- 
ment system and utility 
program 

■ Top selling software avail- 
able on Microwafer" 
media 



# entrepo 

ENTREPO, INC. 

1294 Lawrence Station Road 

Sunnyvale, California 94089 

(408) 734-3133 

Telex 176337 
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of the incessant '*beep" for wrong and "ding-dong" for 
right answers, you can play one phrase of a song as the 
question is asked, and then play the next phrase when 
the player gets the right answer. But for a wrong answer, 
the song is left dangling -which will certainly increase 
the player's desire to get the answer right and finish the 
stupid melody! 

Songs are also useful while players are reading instruc- 
tions, checking scores, consulting maps, and so on. 

And there's no lule that says the phrases have to be 
pieces from the same song. You can have a dozen differ- 
ent songs, and play different ones at different times. Just 
set the value of PH to the number of the phrase you want 
to play, and then GOSUB 60 -the phrase you called for 
will be the one that plays. (If you don't specify a value 
for PH, the next phrase in numerical order will always 
play next.) 

Broken Melody is designed to show how a tune can 
be broken up into pieces, with the different phrases played 
only if and when the player gives certain input. The other 
two programs play continuously until the player presses 
SHIFT. Broken Melody, however, waits for the player to 
press SHIFT before playing anything, and stops to wait 
for another keypress between phrases. Pressing any key 
besides SHIFT, COMMODORE, and CONTROL will 
end the program. 

If you hold down a key during a song, you'll notice 
that the song slows down. This is because the timing for 
the music is done with FOR-NEXT loops, and when you 
press a key it causes an interrupt that uses up processor 
time; this cuts down the number of repetitions of the FOR- 
NEXT loop per second, which makes the notes last long- 
er and slows down the song, 

DECIPHERING THE ROUTINE 

For your ease in understanding how the program works, 
here is a list of the variables and what they are used for; 

MES(phrase, voice) or MES{phrase): After the con- 
version routine at 9900, this variable contains both the 
pitch and octave code numbers in ASCII form, for use 
as an index into the pitch value tables in PI%( ). 

M'VS(jfhrase, voice) or MV$(phrase): Used only dur- 
ing the conversion routine at 9900; its information is con- 
tained thereafter in ME$. 

MDSiphrtise): Contains the duration values; the VAL{ ) 
function retrieves the values for use as an index into the 
duration table DU%(). 

ES%: The number of phrases in the song, minus I. 

EV%: The number of voices in the song, minus I. 

Pl%(code,0) and Pl% (code. l): The pitch table, con- 
sisting of the low byte and high byte, respectively, for 
the frequencies corresponding to the musical scale. The 
code is derived from the ME$ string using the MID$( ) 
and ASC( ) functions. The PI%() values are POKEd into 
the frequency registers. 

¥R(voice,0) and FR(voice,\): The address of the two 
frequency registers for each voice. Voice 0, for instance, 
is at 54Z72 and 54273, so those are the values of FR(0,0) 



and FR{0,1). 

G% (voice): The gate value, POKEing this into the gate 
register causes that voice to begin to sound. The gate 
value also determines the waveform (see line 9070). 

VGfc (voice): The ungate value. POKEing this into the 
gate register causes the sound of that voice to stop. 

GR(voice): The address of the gate register for each 
voice. 

D\J% (code): The duration table. Each of the ten possi- 
ble durations (0-9) consist of the number of times the 
empty loop at line 67 should be repeated. The code is 
derived from the MD$ string using the MID$( ) and 
VAL( ) functions. 

VC: The current voice number. This is used whenever 
the program cycles through the voices; it is the counter 
variable in a FOR VC=0 TO 1 loop. 

PH: The current phrase number. This is automatically 
incremented (increased by 1) each time the routine is ex- 
ecuted, but your program can set this variable indepen- 
dently and take the phrases in any order. 

N: The current note number. This is the counter vari- 
able in the loop FOR N=l TO LEN(MD$(PH) ) at line 
60; it is used with the MID$( ) function as the index in- 
to the ME$ and DU$ strings. 

AT%, DY%, SN%, RE%, WF%: These variables are 
used in setting up the envelopes and waveforms; they are 
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not used after the music is initialized at 9000, so they 
can be used again in your own program. 

X%, Y%, \^, A$, I: These variables are used as place- 
holders and counters at various times during the program. 
They arc never used after the music is initialized at 9000, 
so they can be used again in your own program. 
Line by line, here's what's happening in the sound routine 
at 60-70. 

60 Begin a loop through every character in the duration 
and melody strings. 

61 Begin a loop through each of the three voices. 

62 Un-gate the sounds left over from the last note. (REM 
this line if you're using the line at 68.) 

63 Begin a loop through the two frequency registers for 
each voice. 

64 POKE the pitch values- PI %( )-into the frequency 
registers— FR{ ). (Remember that a rest ("©") in the 
original tune produces the PI% value of in both 
registers, which makes the voice silent for the dura- 
tion of the note.) 

65 Close the VC and I loops. (The N loop is still open.) 

66 Open a new VC loop, only this time backward, to 
gate the voices open. This causes the new pitches to 
play. Close the loop, 

67 Execute the duration loop. 

68 Open a new VC loop to gate off the sound. This line 
is REMed; remove the REM and cause the line to 
be executed if you want clearly separated, staccato 
sounds. 



AHENTION COMMODORE 64 OWNERS 

DID YOU BUY THE WRONG PRODUCT? 
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PRINTER INTERFACE BLUES 



No Kraphics. doe.sn'l work with 
your .software. Bad a.spect ratios, 
no available buffer, well you 
wouldn't have the.se problems with 
the MicrD-Woilii M W-350. We 11 
give you $.'J9. off the li.st price of 
$1*29. for that strange interfacr 
that'.s cau.sine vou trouble. 
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UP SOFTWARE 



Everyone has Back-up .software 
thai reproduces errors, but will it 
back up non-standard sectors, re 
produce density frequency 
alterations alter the number of sec- 
tors, copy single sync bits, and 
reformat a single track? We don't 
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"New Revised Clone Machine' al 
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your products to the latest state of 
the art today. ^^ ^^ 
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69 Close the N loop. When the loop runs out, add 1 
to PH so the next time through the loop, the next 
phrase will play- unless the main program has 
changed the value of PH in the meantime. (Note that 
if PH is higher than ES% , the total number of phrases, 
it is set back to 0.) 

70 Gate off all the voices. This only executes after the 
phrase is over. Then RETURN from this subroutine 
to the main program. 

Next month, in addition to examining sound envelopes 
on the 64 and emulating them with a machine language 
routine on the VIC, I'll provide a machine language mu- 
sic routine for each computer. 

DISCOVERING AMERICA 

Even though this isn't a review column, every now and 
then I find a commercial game that is so good I have 
to tell somebody— and you are the somebody I tell. 

Seven Cities of Gold (distributed by Electronic Arts; 
created by Ozark Software, underpriced whatever it costs) 
manages to do what I thought was impossible: it has al! 
the story excitement of a text adventure, yet it's entirely 
controlled by a joystick and it all happens graphically 
on the screen. 

You are an explorer, sent forth by the King of Spain 
to reach the Indies. Like Columbus, you have a happy 
accident— you find a New World waiting to be discov- 
ered, explored, exploited, and converted. 

The authors have done a remarkable job of giving us 
the experience of discovery. There is no map, at first - 
but as you sail along the coast or lead a band of men 
into the wilderness, a map is automatically drawn. You 
ordinarily see only the small area surrounding you; press 
the button, and you can see a considerably larger por- 
tion of the map. Only when you're safely home in Spain, 
however, can you see the entire map of all your discov- 
eries, (You can also cheat by pressing D when you're back 
home; even the undiscovered lands are displayed then, 
but you get no more credit for discovering anything.) 

In the New World, you discover major, medium, and 
minor rivers, and such exotica as "A land of high moun- 
tains" or "A land of lush jungles." Each new discovery 
adds to your reputation as an explorer -it is counted into 
your score. 

But you don't run these expeditions out of love of dis- 
covery alone. They're expensive, and you have to make 
the investor's money back, particularly since the inves- 
tor is the King of Spain. So you have to get gold. The 
simplest way is to discover a gold mine and ransack it— 
but there aren't many signposts saying This way to the 
free gold." 

Instead, you have to deal with the natives. And here 
is where Seven Cities of Gold s^nds head and shoulders 
above any other adventure game I've played. Your expe- 
dition brings along a certain amount of trade goods. When 
you discover a city or a village, you can trade for food 
or whatever gold the natives have. However, it isn't just 
a matter of simple barter. The natives don't necessarily 
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ersonal computers. They're creating 
sweeping changes. Opening up a wealth of 
money-making opportunities for anyone 
willing to put in a little work to cash in on 
the incredible boom. 

The industry's still young. Still unable to 
satisfy needs and demands. There are an 
unbelievable number of personal computer 
owners out there waiting- sometimes almost 
begging- for more products and services. 

"you can take advantage of this situation 
make money in virtually any aspect of 
the personal computer field. But if you want 
to make the really big bucks, you need to of- 
fer something unique. Something extra spe- 
cial. You need to have one great idea. 

Your one great idea. I've got it. 

Hello, ray name is Larry Carter. Until 
recently I was the owner of just one busi- 
ness-Carter Spray Finishing Corporation, I 
buiit my company up through the yeeu-s but 
expansion didn't come easy. There were al- 
ways problems, long hours of hard work, 
weekends at the office. 

The only good thing was the payoff I lived 
in a plush apartment, drove a Cadillac Eldo- 
rado, wore expensive clothes. Still, my life 
was wrapped up in my business. I had a gor- 
geous beachhouse but hardly ever went 
there. Liked to go skeet shooting but rarely 
picked up my hand-crafted gun. 1 found it 
almost impossible to tear myself away from 
work. 

Then, a short while ago. I invested in a 
computer to help me run my firm. Those 
50-60 hour weeks were finally getting to me. 

I became fascinated by my electronic mar- 
vel and went shopping for one for my home. 

That was my introduction to the vast po- 
tential of the multi-billion dollar personal 
computer market. My business sense got 
aroused. Here was an opportunity too good 
to miss. I knew I had to grab it. The only 
question was "how?" 

I was sitting at my new "toy" when the 
light bulb went off in my head- I was sure 
my idea was a winner . . . couldn't wait to 
put it to work. 

Start-up was simple as pie. And the re- 
sults took me by surprise. 

To a guy who always slaved for a buck, 
the money was ttlmost sinful. It came in so 
fast and ea^y. And there were no backbreak- 
ing hours. No headaches. 

Only then did I realize I had made a fan- 
tastic discovery. I could slow down my pace 
and still increase my income. That dici it. No 
more nose-to-the-grindstone for Larry Carter. 



LOADS OF MONEY 

AND PLENTY OF SPARE TIME TO ENJOY IT 

With a personal computer and an hoiir-and-a-half a day, you can 
make more money faster than you ever thought possible. It all 
hinges on one great ide£u 



More money, less work. 

Today I am in the spray finishing busi- 
ness and the personal computer business. 
I'm a greater success than ever. And I work 
less than ever, too, AU because of the 
change that occurred when I came up with 
my great idea, 

A few trusted employees manage my 
spray finishing concern when I'm not there. 
And my home-based personal computer 
business — why that's not work, it's part- 
time fun that's paying me a handsome full- 
time salary. 

Life's a ball. I threw a few parties at the 
beachhouse last summer. Go skeet .shooting 
every chance I get. And am looking forward 
to some exciting vacations. 

Now I'd like to share my idea with you. 
Because the market's too big for just Larry 
Carter. Because I get a kick out of helping 
others. And because I believe more folks 
should work for themselves. For as I well 
know, when you're self-employed, you're 
happier, more independent and enjoy the 
fuD reward of your own effort. 

With my idea, that reward can be 
substantial. You can make as much as three 
thousand five hundred dollars -$3,500 -in 
your first two weeks of operation. With only 
I'/j hours of work a day. And that's only the 
beginning. 

Make as mi<ch as $25,000 a month. 

In just 90 days, once you're established, 
you can make as much as $25,000 a month. 
Yes, $25,000 a month r And you'll still be 
working an hour-and-a-hatf a day. 

All you need is ambition and the desire to 
succeed. For when you use my idea, you 
don't have to sell door-to-door. You don't 
have to bother friends or relatives. 

You don't need lots of start-up capital. 
There's virtually no investment involved. 
You don't need to live near other personal 
computer owners. Don't need to be a pro- 
grammer. My idea is based on applieo 
Business and common sense, not a know- 
ledge of computers. There's nothing com- 
plicated about what I have to show you. 

Easy-to-foUow steps. 

In my new book, "The Profit Potential in 



Your Personal Computer. The $25,000-a- 
Month Idea," 111 tell you how to put my con- 
cept to work. Give you bU the simple-to- 
understand instructions. Help you start 
making money the day you put my plan into 
action. 

Now I'm going to hit you with two 
surprises. 

Surprise #1. You don't need to own a per- 
sonal computer to benefit from my book. If 
you have access to one at school or work, 
you can follow my guidelines and watch the 
dollars roU in. 

Surprise #2. My book only costs $39.95, a 
remarkably low figure when you make a 
simple comparison - the price of the book 
versus the money you can make by using it. 

Three FREE gifts and a money-back 
Guarantee. 

To make your investment even more at- 
tractive. I'm also going to send you three 
FREE gifts: (11 a second thought-provoking 
book crammed with ideas (less profitable 
than mine but just as creativel on how to in- 
crease your income with a personal compu- 
ter, (21 an audio cassette that accompames 
my book, and (3) periodic updates on 
material that relates to my idea, 

I also want you to be pleased with your 
purchase, so if you are not happy with the 
books and cassettes, return them within 14 
days. Your purchase price will be refunded 
in full. No questions asked. 

Don't wait. Fill out the coupon now. Or for 
fastest possible processing of your order, 
dial this 24-hour-a-day toll-free number: 
800-835-2246 ext, 209. 

Remember, the sooner you order, the 
faster you'll start making big money. So 
mail the coupon now. Turn your personal 
computer into a $25,000-a-Month Profit 
Center, And a means to a fun-fitted new 
lifestyle. 



Order anytime by calliDg toll-free 

800-835-2246 ext. 209 
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like having strangers— particularly armed and dangerous 
ones — mucking about in their towns. 

When you enter a village, your expedition is repre- 
sented by a single figure, however many men you have 
with you. If you bump into one of the many figures rep- 
resenting natives, that native is killed. And since they 
come jostling around you pretty quickly, you have to 
scramble to keep from bumping them. Bump one or two, 
and maybe you can still trade with them- kill a third, 
and you've got a battle on your hands. 

Fortunately, you have a few things in your favor. The 
finst time you enter a village, you can choose to amaze 
the natives; this makes them stand back and let you 
through for a second or two. Then, when you get to the 
center of the village, where the chief is waiting for you, 
you can give him gifts. (You can also give gifts to the 
common folk, but it gets you little more than the time 
of day.) When you've given the chief enough gifts, he'll 
trade with you. 

The chief is the key to winning battles, too. I hate to 
tell you the defect of character that led me to discover 
this, but if you begin a battle by treacherously killing 
the chief before attacking anyone else, you win a lot more 
easily, with less loss of life on both sides. This means 
that whether you want to trade or invade, you still are 
better off doing as Cortez and Pizarro did- make your 
way to the head man before you show your guns. 

After you trade with or vanquish a village, many of 
the natives become bearers, allowing you to carry fer 
more gold and food than your men could carry alone. 
These bearers usually stay with you until you board your 
ship and sail away. 

Word spreads among the natives, too. If you've made 
friends with the natives, they'll tell you about other towns 
and you'll see the villages without having to stumble 
across them -a great time-saver. But if you've been wan- 
tonly killing, the next village will be warned and will 
attack you immediately. 

Believe me -killing everything that moves is a sure w^ 
to achieve disaster. 

When you conquer a village, you can usually estab- 
lish a mission there; but the natives will be hostile, and 
will often overthrow the garrison you left behind. How- 
ever, if you have been unusually kind in your dealings 
with a village, the chief will voluntarily ask you to estab- 
lish a mission. 

In other words, the way you behave, the moral char- 
acter you establish in the game, affects the way the other 
characters in the game respond to you. If you're blood- 
thirsty or careless of your men, either the natives or .star- 
vation will finish you off; if you're careful and wise — 
and sometimes ruthless— you'll achieve high rank when 



you return to Spain. The best I've done at journeyman 
level is Viceroy- it's hard to imagine the King giving you 
any higher rank! But there's an advanced game that I 
haven't even tried to play. 

An added benefit is the world-building program. If, 
like me, you are familiar enough with the history of the 
European conquest of America that you know all the plac- 
es to go to conquer great empires, then you can use the 
world-building option to create new continents. The pro- 
gram was well-designed: the invented continents are real- 
istically laid out. And this time, you really are explor- 
ing a world that no one has ever seen before. 

In other words, this is that rare thing; a perfect game, 
which is worth the price you pay for it. 

The graphics are beautiful, I love the world-building, 
the simplicity of acting out a very complex story is amaz- 
ing- but what I like best is the fact that the game re- 
sponds to you on a moral level. 

This is way beyond anything you've played in the ar- 
cades. Most shoot%m-up games have a kill-or-be-ki!led 
premise. When I first started playing text adventures, I 
tried talking to the dwarfs and other creatures in the un- 
derground caverns, but they were only interested in kill- 
ing. A few text adventures— 77(e Lords of Kurma, the 
many Infocom games -have more variety, in that not ev- 
erybody you meet wants you dead, but I have seen none 
that do what I've been asking for since I first wrote to 
the guys at Infocom back in 1980: I want the game to 
change to respond to the kind of person my player-figure 
reveals himself to be. 

I imagined then a text adventure in which, if a player 
kills everything that moves, within a few turns all the 
creatures in the cave get together and wipe him out. That's 
civilization, isn't it? Ganging up on the killers? 

More important, though, I wanted die adventure worids 
to be peopled with characters who respond to you indi- 
vidually. If you show yourself to be greedy, the thieving 
types would gravitate to you; if you're considerate, peo- 
ple who need help will call on you and then help you 
in return; if you're generous, you'll be trusted— but you'll 
also be taken advantage of; if you're cowardly, you'll be 
bullied. Certain characters will become your friends and 
fellow travelers; others will be your enemies; still others 
will be indifferent. 

Seven Cities of Gold is the first program I've seen that 
takes an important step in this direction. It gives game- 
playing, for the first time, the moral dimension that has 
previously been reserved to the storytelling arts like film 
and theatre and fiction. 

I hope this game does so well that other game design- 
ers learn from it. D 

SEE PROGRAM LISTINGS ON PAGE 88 
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The subject of computer telecommunications 
completely baffles most novices. Anyone who 
has ever been a teenager knows how people 
,- ^ _ - , use a telephone, but the way in which a com- 
puter communicates over the phone lines is much less 
obvious. After all, they don't have any arms, lips, ears, 
or dimes, and even if they did, what's a computer going 
to talk about? Complain about his disk drive, or gossip 
about that cute little VIC down the street? To make mat- 
ters worse, telecomputing carries with it an imposing load 
of jargon. Just when you were beginning to understand 
the difference between ROM and RAM (or had given 
up trying), along come terms like modem, terminal, du- 
plex mode, carrier, answer and originate modes, and par- 
ity bits. As Mr. Bill would say, "Oh Noooooooo." 

Not to worry. As surely as a telecommunications sys- 
tem transforms electrical signals into information, this 
installment of Ship to Shore will cut through the mum- 
bo-jumbo surrounding computer communications. We'll 
take a look at the equipment used in telecomputing, how 
it operates, and some of the terms associated with that 
operation. 

Anyone who has used a computer knows that they com- 
municate through input or output devices. We use input 
devices such as the keyboard, joystick, light pen, or game 
paddles when we want to send information to the com- 
puter. We use output devices such as the display screen 
or printer to take information from the computer. Dur- 
ing telecommunications, the computer receives informa- 
tion from another computer just as it does from the key- 
board, and it sends out information to another compu- 
ter the same way it sends it out to the display screen. 
The only difference is that unlike most input/output de- 
vices, the other computer is not physically present in the 
same room as yours. Usually, you hook up your compu- 
ter to external devices like a printer or disk drive by at- 
taching the two with a cable. Since a telecommunications 
link is established over phone lines, some extra equip- 
ment is needed. 

Figure 1 shows the basic elements of a telecommuni- 
cations link. At either end of the link is a computer (la- 
belled "c") connected to a phone line by a device called 
a modem Oabelled "m", and pronounced "moe'dem^. Usu- 
ally, a computer communicates to outside devices by 
means of electrical signals running through wires. But 
the phone lines which serve as the most common medi- 
um for communicating between two points are designed 
to carry sounds, not the tiny electrical impulses that a 



computer generates. That's where the modem comes in. 
It takes the electrical signals from your computer and 
turns them into sounds that can be sent over the phone 
lines (or Modulates them), and takes the sounds that were 
sent over the phone lines from another computer/modem 
combination and turns them back into electrical signals 
(or DEModulates them). The net effect is the same as 
if the two computers were connected by wires, and ex- 
changed electrical signals directly. The only difference 
is that sometimes if there is static on the phone line, the 
information may be garbled during the transmission. 

Most Commodore users have modems that were made 
specifically for Commodore computers and plug right 
into the user port. But it is also possible to use gener- 
al-purpose modems with the help of what is known as 
an RS-232 interface (the box connected to the remote 
computer in Figure 1, labelled "r"). The name RS-232 
may sound mysterious, but actually, it stands for Rec- 
ommended Standard 232. It just so happens that Stan- 
dard number 232 of the Electrical Industry Association 
describes a standard interface to be used with telecom- 
munications devices. Since computers use a lot of dif- 
ferent kinds of signals internally, the electronics indus- 
try decided to define standard plug and socket connec- 
tions, as well as standard electrical signal levels, so that 
the same telecommunications equipment will work with 
all different kinds of computer equipment. By buying 
an RS-232 interface (for about $40) that plugs into the 
User Port, you can make your Commodore computer 
send out electrical signals that are compatible with all 
kinds of non-Commodore modems, and other RS-232 
devices as well (such as printers and speech synthesizers). 

So far, we've shown what it takes to physically con- 
nect your computer (sometimes called a terminal, be- 
cause it sits at the end of the line) and the remote com- 
puter (sometimes called the host, because it allows 
"guests" like yourself to operate its programs by remote 
control). But all the hardware hookup does is allow the 
two computers to exchange electrical signals. Before we 
can use this system to actually transfer information, we 
have to get the two computers to agree on what those 
signals mean. This is accomplished by the terminal soft- 
ware that controls the exchange. 

Since computers only understand numbers, and not let- 
ters, the first task is to convert the text using a code that 
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the computer can understand. The most common code 
is called ASCII (American Standard Code for Informa- 
tion Interchange). In ASCII, the number 65 stands for 
the letter "A", 66 stands for the letter "B", 97 stands for 
V, etc. Intemally, your Commodore computer uses a var- 
iant of this code called PETASCII, in which 65 stands 
for "a" while 97 stands for "A", but your terminal pro- 
gram will make the conversions so that you communi- 
cate in the same standard ASCII everyone else uses. 

Let's follow the process of how your computer con- 
verts text to numbers, step by step. First, the program 
starts with text characters that you type in. For our ex- 
ample, let's use the letters 

V I C 

The ASCII codes for these letters are: 

86 73 67 

These numbers are in the form of decimals, the base 
ten numbering system that humans use. But computers 
use base two, or binary numbers. They find these num- 
bers easier to work with, because in base two, all num- 
bers are expressed using only two digits, the 'XT and the 
T. Of course, it takes a lot more digits to write a num- 
ber in binary. In fact, in order to write any number from 
to 127 {as you must in order to use the 128 characters 
of the ASCII code), you need at least seven binary dig- 
its. The seven-digit binary equivalent of the ASCII num- 
bers above is 

lOIOllO 1001001 iOOOOU 

As you will see later, not only are these kinds of num- 
bers easy for the computer to work with, but they are 
also easy to convert into sounds. 

Even though we have changed our text characters a 
lot so far, we're not through yet. For one thing, some 
telecommunications programs use an extra binary digit 
(or bit) for what is called parity. In the early days of tele- 
communications, noisy telephone lines were an obstacle 
to information exchange, because the noise on the line 
could be misinterpreted as a false signal. Some way of 
determining whether the data received was exactly the 
same as the data being sent was needed. By adding one 
more digit to each character, a crude form of error de- 
tection called "character parity" was implemented. The 
way it works is simple; if you choose EVEN parity, the 
extra digit is used to insure that the number of "1" digits 
is even, and if you choose ODD parity, the extra digit 
is used to insure that the number of "I" digits remains 
ODD. For example, using even parity, our binary repre- 
sentation of the letters VIC: 

lOIOUO lOOIOOl lOOOOlI 

becomes 

OIOIOIIO IIOOIOOI 11000011 

The receiving computer would use this parity bit as 
a safeguard against bad transmission. If the bits didn't 
add up, the computer would know that the transmission 



was faulty, and could ask for the character to be sent 
again. This kind of simple error checking really belongs 
more to the era of mechanical teleprinters than today's 
modem computers. Nowadays, very few systems use par- 
ity. When you select NO PARITY with your terminal 
software, the eighth bit is always changed to zero (un- 
less you want to send special, non-ASCII characters), so 
that our binary code for VIC becomes 

01010110 01001001 OlOOOOll 

We're almost ready to ship out our data, but we still 
have one last manipulation to perform. We've got to add 
"framing" bits that show where each character begins and 
ends. In order to understand why, let's go over the way 
in which the modem translates electrical signals to sounds. 

Modems use two sets of frequencies to send and re- 
ceive data. These are technically known as "answer" and 
"originate" frequencies, but let's just call them "high" and 
"low" tones. One modem will send information using the 
high voice, and will listen for a reply which the other 
computer sends using the low voice. The other will use 
the opposite pair of tones. Two sets of tones are needed 
so that the modem can differentiate between tones which 
it is sending, and those received over the phone lines. 




Figure 1: Telecommunications Link 

M; modem T: telephone link 

C : computer R: RS-232 interface 



Each voice uses notes of two different frequencies, 
called MARK and SR\CE. As you might guess from their 
names, MARK represents die "1" character, while SPACE 
represents the "0" character. By convention, the normal 
"quiet" state of a phone line when no data is being trans- 
mitted is a continuous MARK tone, which can be con- 
sidered a constant stream of ones (this continuous tone 
is also called a "carrier," because the data string of ones 
and zeroes is superimposed upon it). To isolate our text 
character, which has now been converted to a stream of 
ones and zeroes, we "frame" it by putting a SPACE or 
zero character on either side of it. The zero character 
that comes before our text is called a start bit. while the 
one that comes at the end is known as a stop bit. There- 
fore, the binary numbers which stand for the letters VIC: 

01010110 01001001 OlOOOOll 

become 

0010101100 OOIOOIOOIO 0010000110 

Finally, we're ready to send this text. Here we have 
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a "quiet" communications line (all MARK tones, or ones, 
remember) just waiting for some data: 

MMMMMMMMMMMMMMMMMMMMMMM 
MMM 

When we type the letters "VIC", the ASCII codes for 

which are 

86 73 67 

our computer recognizes what we typed as 

01010110 01001001 01000011 

and our telecommunication software adds in the start and 
stop bits to change it to 

OOlOIOllOO OOIOOIOOIO 0010000110 

This data is sent to the modem, which changes the ze- 
roes and ones into the high and low sounds known as 
MARK and SR^CE tones: 

SSMSMSMMSS SSMSSMSSMS SSMSSSSMMS 

The modem superimposes these tones over the continu- 
ous MARK tone of the "quiet" line: 

MMMSSMSMSMMSSMMMMSSMSSMSSMSMMM 
MMSSMSSSSMMSMMM 

The receiving modem changes it back mto a string of 
ones and zeroes again; 
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The telecommunications software on the computer at 
the receiving end must watch this stream of characters. 
Because of the agreed upon convention, it knows that 
the first zero it sees means "Hey! The next eight bits are 
a character, and ninth bit had better be a zero that marks 
the end of the character. After you get that last zero, you'll 
see some ones for a while, until you get another zero 
that starts another character." In this way, the extraneous 
ones added in by the continuous drone of the "carrier" 
tone are stripped away, and the computer at the other end 
receives the characters 

OOlOIOlIOO 0010010010 0010000110 
which it displays as the letters 

VIC 

This may seem like a lot of work for just three letters! 
Fortunately, your computer and modem can handle the 
whole operation at a high rate of speed. What speed, 
you ask? The most common rate is 300 bits per second. 
As you have seen above, each character requires at least 
10 bits, so 300 bps equals a little under 30 characters 
per second. Sometimes you will hear operation at 300 
bps referred to as 300 baud. This unit of measurement 
is named after Georges Baudot, the inventor of an early 
teleprinter code. But it refers only to how many times 
per second the tones change frequency, not how many 
bits are sent. At 300 bps, the tones change frequency at 
a rate of 300 baud, so the terms may correctly be used 
interchangeably to describe the speed of transmission. 
Modems that transfer data at 12CK) bps, however, only 
change the frequency of the tones at a rate of 600 baud, 
so to term them "1200 baud" modems is a mistake. 

The only term left to explain is "echoplex" or "duplex" 
mode. This has to do more with how information is dis- 
played on your screen than how it is transmitted. Most 
communications links are in what is called "full duplex" 
mode. This means that the remote computer actually 
echoes back every character that you send it, and the text 
that you type in at your keyboard does not appear on 
your screen until it is sent back from the computer on 
the other end. This makes it easy to spot any trouble, 
because if the other computer isn't receiving your text. 
you won't see it on your screen as you type! The other 
possible mode is called "half duplex." In this mode, all 
of the characters that you type are displayed directly on 
your screen. This is necessary only if the remote system 
isn't echoing your characters back. If it is, then you will 
see each character on your screen twice, once from the 
"local echo" and once from the "remote echo." liiikkee 
tthhiiss. 

That about covers our painless introduction to telecom- 
puting. If you have any questions, please send them along, 
and we'll try to cover them in future columns. 

Sheldon Leemon 

CompuServe ID 72705,1355 

Source BBX878 
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A Graphics Generator for the C-64 




By Bob 

_ . he C-64 provides a variety of graphics, but 
^^Jroducing them on the screen is no easy mat- 
s*' ter. Take for instance the procedure of plac- 
ing a red, reversed heart symbol in the mid- 
dle of the screen. First we use the two cursor keys to 
get to the location. Then we press CTRL and RVS, fol- 
lowed by CTRL and RED. Next we have to find the char- 
acter on our key board... there it is. Now we press COM 
and S. There. Eight keys later we have our symbol on 
the screen. That's a lot of work for one character. 

Drawing a complex picture in this manner is not some- 
thing yon would do for fun, but sometimes we'll write 
a program that demands it. Even as I wrote Screen Magic, 
Mv/as wishing 1 had help. 
/^ Scfvai Magic takes your hands away torn the keyboarxl 
and places them on that device we all love to handle: 
"^ joystick. Using only the joystick, you can choose the 
Character that you want and print it on the screen. These 
include graphic characters, letters, numbers, and other 
symbols as well. On the screen, along with die charac- 
ter table, there is a palette of colors. Most of the screen, 
however, is your canvas. Although you can draw effective- 
ly without the keyboard, there are a number of special 
keys you'll want to use. I'll get to these in a minute; first 
let's type in the program. 

It's in machine language -and it's long -but Flankspeed 
(see page 86) should eliminate all the typos. Once you've 
typed it in,,*e sure to save it before running. Then plug 
your joystick into port 2. Type NEW and hit RETURN. 
Then type SYS 49152 and press RETURN. 

The screen will display a table of symbols and colors-, 
unlike the keyboard, these are neatly grouped together 
^ quick selecdon. To stan, just push your joystick. First 
j^u'll have to pick a character to print. Center your cur- 
sor, which is an open box, over the symbol you want 
and press the fire button; the character will be tucked 
away in a tiny buffer. Then move to the palette and se- 
lect a color in the same way. Now go to the right side 
of the screen and hit the joystick button; your character 
will be printed. You can, of course, hold down the but- 
ton and draw a string of characters as you move across 
the screen. Keep in mind that your cursor picks up let- 
ters and colors when it's in the symbol table, but outside 
of the table, it prints them. 

As you napve about the screen you may find the cur- 
sor speed too slow or too fast. To change it, press V and 
youli be asked to enter a number. The fastest is and 
the slowest is 9. You can also use the cursor keys to man- 
euver around, and the space bar to pick up or drop a 



Spirko 

character. Use DEL (or print a space) to erase a charac- 
ter, and CLR to clean your canvas. Some characters, such 
as letters and numbers, have no reverse case displayed 
in the symbol table, but you can toggle reverse by press- 
ing 9 (press RVS without holding the CTRL key down). 
When you've finished drawing, press X to exit to BASIC. 
Now for those special keys 1 mentioned. After draw- 
ing your picture, you may find that it is not centered on 
the screen. If this is the case, you can scroll your canvas 
to the right by pressing fl. Similarly, use f2, O, and f4 
to scroll,,]^, down, and up. To change the background 
color, press f5. No doubt you'll want to save some of your 
creations: if so, press f8 and you'll be asked for a fil 
name. Once entered it'll be stored (disk only) for later 
retrieval. To LOAD it, press f7. , ^^_. 

Often you might want to draw a symmetrical figun^^^ 
<such as a border. Tap the back arrow and you'll be inV^ 
the symmetry mode. Whatever you draw on the left side 
of your canvas will be duplicated on the right. If your 
cursor is on the right side of the screen, no duplication 
takes place. Press the back arrow again to turn off the 
symmetry mode. 

The keys I like most are A and SHIFT-A. Let's say 
you want to draw a line with hearts and diamonds so that 
the first character is a heart, the second a diamond, the 
third a heart, and so on, alternating down the line. If 
you already have a heart in your buffer, toggle key A. 
The heart will be transposed to another buffer. Now move 
your cursor over the diamond and press the fire button 
With both characters stashed away, you can now prin! 
alternating symbols. Each time one character is printed, 
the buffers are switched so that the next character to be 
printed is different. To turn off alternating characters, 
hit A again. Toggle SHlFT-A to alternate colors. 

Here's a rundown on die commands: 




n 


scroll right 


f8 


save to disk 


f2 


scroll left 


■*- 


symmetry mode 


O 


scroll down 


A 


alternate characters 


f4 


scroll up 


SHIFT A 


alternate colors 


f5 


change bkgrd. color 


V 


cursor velocity 


f7 


load from disk 


X 


exit to BASIC 



When loading Screen Magic back in, you'll have to 
do so with a "I": 

LOAD"SCREEN MAGIC", 8,1 

as it ig* till "ML, When the cursor returns to the screen, 
type SYS 49152. then RETURN. This will activate th 
program. D SEE PROGRAM LISTING ON PAGE m 
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Busy offices, take note: Our new letter-quality printer 
zips along at 40 characters per second and sells for only 
$995. Its 13" print line will handle your spreadsheets 
and every imaginable kind of correspondence — 
plus graplucs! Quiet, too — less than 60 dbA. 
And the 3K buffer memory (expandable to 15K) 
lets you use your computer for other purposes 
while the JUKI is printing. Compatible with 
most computers. (You can even get an optional 
tractor feed and cut-sheet feeder for it!) Now 
you know why JUKI printers are hunnming in 

offices all over the world! 
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The worker. 

JUKI OFFICE MACHINE CORP. 
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EAST COAST: 

299 Market St . Saddle Brook, N} 07662 

(800) 932-0590 

WEST COAST: 

23844 Ha\vthome Blvd., Suite 101. Torrance. C A 90505 

(800) ;}25-6134 • (800) 435-6315 (Calilomia) 

Header Service No. 272 
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ARCADE ACTION 



for the C-64 
By Bob Blackmer 



» 
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uck Shoot is a colorful arcade-style shooting 

gallery, inspired by the old carnival game. 

You simply aim your gun sights at the ducks 

on the screen and fire. 

Shooting down ten ducks will put you in a timed target 

round, consisting of a series of targets that appear on 

the screen for brief periods. The higher your score, the 

faster the required reaction time. If four ducks in a row 

get by, the game ends and your score and the high score 

are displayed. 

The duck's speed will increase as you progress through 
the rounds. 

Ducks are worth 25 points each, and the targets are 
worth 50 points each. 

There are eight target rounds, after which the game 

becomes a flurry of ducks moving faster and faster until 

the game ends. 

I > If you like shooting for a high score, my best is 6300. n 

I Li ^ SEE PROGRAM LISTING ON PAGE 105 
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Programming H^il 
Made Simple ^^ 
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Learn to program! David A. Lien has taught 
thousands of people BASIC programming and 
introduced them to writing custom software. 
Hands-on instructions in a simple, comprehensive 
and even humorous style make learning fun. With 
Learning Commodore 64 BASIC you can enjoy 
the full powers of your C-64! 

Order by calling TOLL FREE 800-854-6505 (in 
Calif. 619-588-0996) or send $14.95 plus $2.00 
($3.00 foreign) for postage and handling. Visa and 
MasterCard users, include card # and expiration 
date. Mail to: 
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The Ulliniate Resolulion 

Exploring Bit Map Graphics on the Commodore 64 

By Dal^ Rupert 



E 



I 



xploring any new feature of the Commodore 
64 is always an adventure. Originally I had 
planned to deal with the random number gen- 
erator this month. There are several interesting 
computer simulations involving random numbers. The 
Buffon Needle problem and the "infinite number of mon- 
keys at the keyboard" problem can both be simulated by 
using the RND function in BASIC. Before developing 
those problems, I wanted to do some elementary inves- 



tigations into the random number generator itself. That's 
where this diversion into bit map graphics began. 

It is well known from the advertisements that the Com- 
modore 64 has a graphics resolution of 320 dots (hori- 
zontal) by 200 dots (vertical). What isn't obvious from 
the ads is that accessing those 64,000 dots is much eas- 
ier said than done. All I wanted to do was choose a ran- 
dom value for X from 1 to 320 and a random value for 
Y from 1 to 200 and then plot each X-Y pair. Truly ran- 
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dom numbers should produce a truly random looking 
pattern of dots on the screen. 

Those of you who use one of the enhanced versions 
of BASIC are undoubtedly able to type PLOT (X,Y), or 
something similar, and thereby put a dot on the screen 
effortlessly. This article is for those of you who do not 
use a fancy BASIC. Or those of you who enjoy a compli- 
cated puzzle and want to find out more about the amaz- 
ing silicon brains we are using. 

This month we will investigate the Standard High-Res- 
olution Bit Map Mode of displ^ing graphics on the Com- 
modore 64. We will see that BASIC is barely able to op- 
erate in this mode. BASIC is very slow and cumbersome 
at manipulating 64,000 dots in most applications. For that 
reason, next month we will create some assembly lan- 
guage routines to help speed things up. First let's review 
some of the basic screen concepts we've previously dis- 
cussed. 

PRELIMINARIES 

In the normal character mode of operation, there are 
twenty-five rows of characters with forty characters in 
each row. That gives a total of one thousand individual 
characters (25 times 40) which may be displayed at one 
time. There are 256 different characters to choose from 
for each of those 1000 locations. Furthermore, each and 
every character may be any one of sixteen colors. 

The Video Matrix is the technical name for the one 
thousand consecutive bytes of memory whose contents 
are normally displayed on the screen. The Video Ma- 
trix begins at memory address 1024 and goes to address 
2023 when we turn on the computer. Those addresses 
may be changed by programming, but we will assume 
that they have not been. 

Each byte of the Video Matrix contains an eight-bit 
value ranging from to 255. In normal character mode, 
the VIC -II Video Interface Chip translates each byte into 
a pattern of pixels (picture elements) which appear on 
the screen in some recognizable form. Appendix E in 
the C-64 User's Guide and Appendix B in the Program- 
mer's Reference Guide (PRG) show 128 of the 256 possi- 
ble forms. The other 128 characters are reverse images 
of those shown. There are indeed two sets of 256 char- 
acters each, but only one of those sets may be selected 
at a time. In fact it is possible to create still other sets 
of characters to replace these, but that is a topic for an- 
other article. 

If we put the value 20 into address 1024 (POKE 
1024,20), the result is a letter T" in the upper left cor- 
ner of the screen. As we have discussed before, it may 
not be visible until we put a contrasting color value into 
the corresponding color memory location (POKE 
55296,1). The VIC-II uses the 20 as an index into the 
Character Base. The Character Base provides a 64 bit 
dot pattern which represents the character "T'. The nor- 
mal Character Base originates in ROM. 

Each character consists of a box which is eight screen 
dots wide by eight scan lines high. Within that box of 



64 dots or pixels, some of the dots are one color and 
the rest are another color. The dots that contrast with 
the background color are arranged in the shape of a T". 

To get an idea of the size of the pixels we are dealing 
with, put character 102 onto the screen (POKE 1024,102 
: POKE 55296,1). You might be able to count the individ- 
ual pixels, depending upon your monitor and your eyes. 
Each small square in the pattern contains four pixels. 
Keep in mind that those 64 pixels are generated as a re- 
sult of the one-byte quantity stored in location 1024. 

In graphics bit map mode, the VIC-II treats each one- 
byte value in locations 1024 through 2023 quite differ- 
ently. Instead of representing predefined character sym- 
bols, each one-byte value is interpreted as two four-bit 
color codes. In the bit map memory, the "0" bits will 
be displayed as one color and the "1" bits will be shown 
as the other color. But just a moment. What is this bit 
map memory? 

THE BIT MAP 

We have already calculated that a 320 by 200 resolu- 
tion display needs 64,000 bits or 8000 bytes of storage. 
The C-64 hardware is arranged so that the 8000 byte bit 
map memory may begin at either location or location 
8192. Since BASIC and the operating system are very 
dependent on the page zero memory, we wouldn't get very 
far by POKEing random data there. Consequently we 
must use the 8000 bytes beginning at address 8192 for 
our bit map memory. 

Having defined a suitable block of memory, we can 
create an image on the screen by turning some of the 
64,000 bits on and naming others off. The first eight bytes 
of this memory contain 64 bits which correspond to the 
small, character-sized region in the upper left hand cor- 
ner of the screen. The bits that are I's will be displayed 
as one color, and those that are O's will be displayed as 
another color. The actual colors depend upon the value 
stored in location 1024. The next block of 64 pixels will 
also be displayed in two colors. Those colors are deter- 
mined by the value stored in location 1025. And so forth. 

There is a very definite similarity between the char- 
acter mode and the bit map graphics mode. Each mode 
has a data memory and a separate color memory. For 
character mode, data memory consists of 1000 bytes be- 
ginning at location 1024. Its color memory consists of 
1000 nybbies beginning at location 55296. Each of the 
1000 characters may have any one of sixteen colors. For 
bit map mode, data memory consists of 8000 bytes begin- 
ning at location 8192. The corresponding color memory 
begins at location 1024. Each of the 1000 bytes starting 
at 1024 contain two color nybbies. Each block of eight 
bytes in data memory can be displayed in any two of six- 
teen possible colors. As we discuss the details, the con- 
fusion should subside. 

THE DETAILS 

Pick two colors, any two colors, as long as they are 
from the group of sixteen listed in Appendix G of the 
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User's Manual or Appendix D of the PRG. A number 
20 in location 1024 while in bit map mode is interpreted 
as the colors white and purple. The easiest way to see 
this is to convert it to hexadecimal. In hexadecimal, 20 
becomes $14 where the "$" signifies that this is a hexa- 
decimal value. 

The "4" is in the units place, and "4" corresponds to 
purple. The "I" representing white is in the 16's place. 
The decimal value of $14 is 1*16 + 4 or 20, That is how 
the value 20 in location 1024 represents the colors white 
and purple. 

If you want the 64 pixels in the upper left comer of 
the screen to be light blue or yellow, you must poke 231 
into address 1024. Light blue has a value of 14, and yel- 
low has a value of 7 {14*6 -I- 7 = 231). The color value 
in the most significant nybble is treated as the foreground 
color, and the other is the background color. Poking 126 
into 1024 would reverse the colors since 7*16 -I- 14 == 126. 

A simple example should clarify the situation. Assume 
we are working in bit map mode, and location 1024 con- 
tains the value 20 (white/purple). Put values 255,0,255, 
0,255,0,255,0 into the first eight locations starting at ad- 
dress 8192. Remember that these eight bytes represent 
the pixel pattern displayed in the upper left comer of the 
screen. That eight by eight square will look like this: 

11111111 
Or/jfjOOOO 
11111111 
00000000 
UllUll 
00000000 
11111111 
00000000 

The number 255 contains all I's, and of course is 
stored as all O's. The computer does not display Ts and 
O's on the screen. Instead all the I's are displayed as white 
pixels, and all the O's are shown as purple pixels. Con- 
sequently there will be a white and purple striped square 
in the upper left comer of the screen. 

If we replace the 255 in location 8192 with 254, the 
pixel in the upper right corner of the box above will 
change from white to purple. If we put the value I into 
memory location 8199, the lower right corner of the box 
will change from purple to white. If we change the val- 
ue in location 1024 from 20 to 231, the box will change 
from white and purple stripes to light blue and yellow 
stripes as we calculated earlier. 

It should now be clearer as to where the term "bit map 
graphics" originates. The value of each bit corresponds 
to a pixel on the screen. The screen image is essentially 
a map of the bits in memory. 

The details of the organization of the 8000 byte bit map 
memory are shown on page 125 of the PRG. Unfortun- 
ately the calculations needed to determine the specific 
byte and bit to turn on any given pixel on the screen are 
somewhat involved. 
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Using the terminology in the PRG, the formulas for 
locating the pixel at location X,Y are as follows: 

BYTE - BASE + 320*ROW + 8*CHAR + LINE 

BIT = 7 - (X AND Y) 
where 

BASE = 8192 (the starting address of the bit map) 

ROW = INT(Y/8) 

CHAR - INT(X/8) 

LINE = (Y AND 7) 

The calculated BIT is set to 1 or reset to in address 
BYTE in order to select the foreground color or the back- 
ground color for the pixel at screen location X,Y. X rang- 
es from to 319 and Y ranges from to 199 with the 
origin 0,0 in the upper left corner of the screen. 

Unfortunately these formulas represent a fair amount 
of work for BASIC to locate just one pixel. You enter 
the bit map mode in BASIC only if you have plenty of 
time. Let's look at the details of initiating bit map mode 
and working in it. 

USING THE BIT MAP 

The steps required for using bit map mode are as fol- 
lows: 

1. Set the bit map starting address to 8192. 

2. Enter bit map mode. 

3. Clear the bit map memory. 

4. Put desired color(s) into the color memory. 

5. Set (or reset) desired bits in bit map memory. 

The sequence for these steps depends upon the appli- 
cation. The program on page 88 shows how these steps 
are implemented. 

We will use the "set bit" and "reset bit" functions which 
we have discussed in previous columns. They are de- 
fined in lines 10 and 20. Line 420 shows how these func- 
tions are used. The argument of the function must be 
a number from to 7 corresponding to the chosen bit. 
The memory location must be stored in the variable 
named MM. The statement POKE MM, FNSB(5) will 
set bit 5 of address MM to 1. If BIT has a value of 3 
and MM equals 9000, then POKE MM,FNRB(BIT) will 
reset bit 3 of location 9000 to 0. 

To place the bit map memory at address 8192, we must 
set bit 3 of VIC-II register 24. ("Set" will mean to give 
a value of one and "reset" will mean to give a value of 
zero in the following discussion.) The VIC-II registers 
begin at location 53248. Register 24 is at address 53248 
-I- 24. The variable VV in line 30 stores the starting 
address of the VIC-II registers. Line 40 sets bit 3 of regis- 
ter 24 and defines the starting location of bit map mem- 
ory. 

To enter bit map mode, line 50 sets bit 5 of VIC-II 
register 17. If you stop the program at this point, you 
see a jumble of dots, especially if the screen had char- 
acters on it before you typed RUN. The eight by eight 
demarcations should be visible as the colors vary from 
box to box. The colors are determined by the characters 
which were on the screen when you ran this program. 
The dots within the boxes show the data that happened 




Monitors 
BlVtC Color 1499!i 

Pan 1300 RGB & 

Comp 289" 

Zenilh Green . 79" 

Modems 

Mighty Mo 64" 

Comm 1660. , . .79" 
Telesonic Call 

Cassette 
Recorders 

Comm CN-2 . 59" 
Third Party 39" 



Interfaces 

Telesys Turboprint GT 

•Prints Enhanced Graphics. 4 
Different Type faces. & 
Reverse Characters '[ncludes 
Power Cord. Five feet of Cable 
) and All Required CQQ5 
Connectors 0" 

Cardco G + Call 

Mlcroworld Call 

Diskettes 

Nashua 10" 

Scotch 14" 

Maxell 14»s 

Memofex 11"' 





Printers 

Gemini SG10 209" 

Gemini SD 10/15 newi . Call 
Gemini SR 10/15 newi Call 
Gemini SB 10 newi Call 

Gemini SG 15 359" 

Stiver Reed 400 .. 249" 
Panasonic 1091 . . . Call 




SOFTWARE 

SPECIALS 

Fisher Price 

Learning Software 
Alpha BuiM 
Logjc Levels 
Mouie Crealor 
Sea Speller 
Songrr^aker 
Uo i, AdD im 



12.99 

12.« 

«.1 

12.99 

12.99 

H.99 



Wlmjnr Clmjci By Flihei Prict 



ie.99 

16.99 
1E.99 
16.99 
16.99 
16.99 



^commodora NeW PrOdUCtS 

801 MCS 
Prl'n^r ItS'^^ 



C-16 Computer 79" 
C+4 Computer 189" 

801 Printer 149" 

802 Printer 179" 

803 Printer 174" 



Below The Rool 
Swiss Family Rotjinson 
Aln;e ir Wonderland 
Treasure Island 
flobin Hood 
Wizard ol Oz 

/Y penguin 
VJw'softuare 

Ouesl 19.99 

rransylvania 19.99 

Swoid nl Kadasti 19.99 

xypnus 19.99 

Graphics Magician Piciuie 

Painier 

Spinnaker 
Counting Parade 
Early Learning Friends 
Maih Buster 
President s Choice 
Sum Ou€ks 
Amazon 
Diagonworfd 
fahrenhed 'ISI 
Rendezvous wjth Rama 

Ptolesslonal Sottvuie 
flee! Syslem 2 — Word Processoi 

■vilh Duillin 70.000 word 

spell check 

CBS Sotlwart 
0' Sciiss FiK up The Mn-up 

Puzzief 
Sesame Sireei Letiet Go 

Round 
Big Bird's Fun House 
The Sea Voyager 
Weather Tamers 
Movie Musical Madness 
Success w'Oecimals 

|AdO/Sut)t I D-T 
Success w/Oecimals 

iMuii /Div ) D T 
Success */Frac1ioos 

lAdd fSuDI ) DT 
Success w/Fraciions 

(Mull /Div ) D T 14.99 



21.99 

lE.gg 

16.99 
16.99 
23.99 
16.99 
19.99 
19.99 
19.99 
19.99 



S9.9S 



19.99 

19-99 
19.99 
24,99 
12.99 
9.99 

14 99 

14.99 

14-99 



Ouck s Ahoy 
Einie's Magic Sfiapes 
Masleting tfie SAT 
Murder by the Dozen 
Peanut Butlei Panic 
Epyx 
Fast Load 
Barbie 
Mot Wheels 
Gi Joe 
Brtakoanes 
Baseball 
Pitsiop 
Piisiop II 
9 10 5 Typing 
Moreia 

Touch Tableli 
Koala Touch TabietD 
Koala Touch Tablet. Can 
Muopel Learning Keys 
Access 
Neutral 2ontD/T 
Spnlemaster-D/T 
Beachhead-0/1 
Master Composer D 

ConiriiOllort 
Program Ret Guide 
AssembierD 

fasy Finance I. II, III. IV-0 
£asyCalc-D 
Easy MaiI'D 
Fasy Sciipt-D 
Easy Speri.O 
LogoD 

Ttie Manager-D 
General Ledger. D 
Accts Rec -V 
Accts Pay-D 
Magic Desk-0 
Zork I. II 01 III 
Suspended -0 
Slarcross-D 
Deadline D 



23.99 
23.99 
194.99 
23.99 
24.99 

24.99 
19.99 
1999 
19.99 
19.99 
19.99 
24.99 
2499 
24.99 
24.99 

6995 

S4.95 
Call 

20.95 
20.95 
20.95 
23.95 

19.95 
17.95 
19.95 
64.95 
17.95 
39.95 
19.95 
49.95 
37.9S 
37.95 
3T.9S 
37.95 
52.95 
29.95 
29.95 
29.95 
29.95 



Nf f C tf 

JOYSTICKS 

THE BOSS 



1288 



The Bat 
3-Way 



-1413 

19" 



7D ORDER: CALL TOLL FREE - WERE PROUD OF OUR PRICES - SATISFACTION GUARANTEED 

m NEW YORK STATE CALL TOLL FREE ^ 01111 CO-I -ffinO 
1 800 221 2760 or 516-249-2120 I "OUlJ-Du I ' I UUu 

Check. Money Order. MC or VISA accepted /No additional charge lor MasterCard and Visa /Call <ar shipping and handling 
Inlormation /NYS residents add applicable sales tax /Prices and availability are subject to change without notice /All factory 
fresh merchandise with manufacturer's warranty. Dealers Welcome. Call lor recent price reductions and new rebate intormation. 
Plus shipping and handling. 
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or Write 

Computer 

Centers 

ot America 

81 Terminal Dr. 

Plainview. NY 11803 
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to be in memory beginning at location 8192 when you 
ran the program. 

Lines 70 and 80 POKE into the 8000 bit map loca- 
tions. This seems to take forever. (A good place for a 
machine language routine!) The whole screen will now 
display the background color(s). 

Line 90 sets the foreground color CI to white {!) and 
the background color CO to black (0). Not very imagin- 
ative, but feel free to pick your own colors. The 1000 
bytes of color memory are filled with this one color com- 
bination in line 100. Remember, you may put various col- 
or combinations anywhere within the color memory. 

The main program in lines 200 through 220 performs 
the operation described at the start of this aiticle. Ran- 
dom values for X and Y are chosen, and the correspond- 
ing X-Y pixel is turned on (.set to the foreground color). 
The main program calls the subroutine at lines 400 
through 430, which performs the calculations for an X- 
Y pair and lights the proper pixel . Notice that some of 
the formulas mentioned earlier have been combined into 
one formula in line 410 to help speed things up. 

A pause in line 250 allows you to see the screen for 
a while after the one thousandth random pixel has been 
lit. Lines 310 and 330 return things to normal character 
mode. All the characters which were on the screen are 
now P's. Do you know why? Look at line 100 for a clue. 
List the program to see that everything is in fact normal. 



Make your C-64 or VIC versatile with: 
Custo m Character Sets ; c hared lor the c^4 
Features: 



Li Menu Driven with lull screen display 
O Save and Load Chaiaciet Sols 
D Use with Muiti'coiof Mode 
Q Butlt'in Utilities lor reverse- copy 
and ^Id'ace characters 



J Use with BAStC Of ML 
I Create Fonts or Garne Graphics 
i Keyboard or Joysucii Input 
. Cut and Paste Feaiure 
Specity CHARED 



SportS! 



iarcSi 



LF 



Features: 

Li Course design and game programs 
i J tresi Sandlraps. use desgned Greens 
Lj Built-in Adjustat^e Pm Placement 
U HiRes ML Graptiics tor speed 

Word Processingi 



^ 18 hole course included 
._: Unlim>ted number of Courses 
Slice and Hook around Obstacles 
Soecily Mr GOLF (lOysliCli reQunedl 

llof Uw C'M and VIC-20 



Features: 

Oaojmst edftng Create rnodity Sehe 
lase and drsti SEOueniial data tiles 
, Ltne image Editor usmg simple 
commands 
i.JFuil Screen Editor 



Graphics: 

Features: 

i_ ryte<iu Dr.^en vvith Full Screen Dsptay 

Lj Keyi^oara or Lighlpen Input 

U Basic Geometry (point, line, ellipsej 

elemenl'Color selection 3D 
IJ Screen to printer or plotter (HiRes) 



- Print command with maenlation and 

margin control 
^ Comptfite User's Guide included 
L Specily Tb»ED for C-64 Tex£D20 lor 

VtC-20 wilh 56K expansion 

PLOTVICa Hl-na« anphlci Kit 
for th« ¥10-20 



Functions stand alone tor use with 
personal pfogramming (BASICl 
; User s Gude-iiiustraied graphics tulonai 
and lechnicai explanations 
Speciiy PL0TV1C8 (requires BK-f) 



A/^rt Aitfii Ml 48106 



Mail completed form to APCAD PO Box 2673 Ann Arbor, Ml 48106. Send check 
lor $19.95 (US) lor tape. $22.9S disk, or $34 .9S for two t$39.9& disk). S & H included 



Name: 

Address: 

CilyfStaie/Zip: 

Credit Cards also accepted: 
a VISA . MC AMEX 
Accl. No. E»plf. Dale: 



Specify:. 



._CHARED 
. Mr. GOLF 

TeiED 

_TeKED20 

. PLcrrvica 



Signaluig: 
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Here are a few tips before you take off on your own 
to work with this graphics mode. Remember that RUN- 
STOP/RESTORE will return the screen to normal mode. 
I found it useful to memorize the line number 300. If 
I stopped the program before it finished, 1 would blind- 
ly type GOTO300 which allowed the program to return 
the screen to normal. That way my screen colors weren't 
reset as they would be with RUN -STOP/RESTORE. 

It is very frustrating to sit and wait for 8000 bytes of 
memory to be cleared every time the program is run. 
You might put in a statement to bypass lines 70 and 80 
after memory has been cleared once. You will end up 
with multiple images on the screen but that may not be 
objectionable for debugging. 

Put your own statements between lines 100 and 300. 
Just define values for X and Y then GOSUB 400. This 
program does not check the validity of any parameters, 
so be careful with your values of X and Y, or add check- 
ing routines (and slow the program down even more). 

Horizontal and vertical lines are easily generated. A 
sequence such as this creates a small rectangle: 

2r/j FOR X=100 TO 130 
210 Y=20 : GOSUB 400 
220 Y=AO : GOSUB ¥/) 
230 NEXT X 
240 FOR Y=20 TO 40 
250 X=100 : GOSUB 400 
260 X=130 : GOSUB 400 
270 NEXT Y 

These in.structions from the PRG draw a sine wave: 

200 FOR X=0 TO 319 STEP 0.5 
210 Y=INT(90 + 80*SIN(X/10)) 
220 GOSUB 400 
230 NEXT X 

There is a warning on page 127 of the PRG that BASIC 
variables can overlay the high resolution screen. It is clear 
from the memory map on page 320 of the PRG that our 
bit map memory {8192 to 16191) is in the midst of the 
BASIC program space. BASIC closes in on this bit map 
memory from both directions. This is all right if the two 
regions don't reach the bit map memory. If your program 
is so large that an overlap occurs, you will have to move 
the bottom of BASIC memory up above address 16191. 
The TXTTAB pointer at locations 43 and 44 determines 
the lowest address used by your BASIC program. Change 
this if your programs conflict with bit map memory. 

It's obvious after running the program on page 88 that 
the random number generator doesn't generate pattern- 
less random numbers. We'll go fiirther with random num- 
bers another time. Next month we'll replace some of these 
sluggish BASIC statements with high-speed assembly rou- 
tines. In the meantime, what will you do with those 
64,000 pixels now that you have control of them? D 
SEE PROGRAM LISTING ON PAGE 88 
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BONUS GIFT WITH ANY SOFTWARE ORDER — AN EXCELLENT PUBLIC 
DOMAIN VERSION OF AN ARCADE HIT GAME ON ITS OWN DISK. 



ARCADE 

Archon 28.95 

Archon r( Adept 28.95 

Beachead II 25.95 

Bruce Lee 24.95 

Castles of Dr. Creep 20.95 

Ctiampionship Loderunner 24.95 

Computer Quarterback 28.95 

F15 Strike Eagle 23.95 

Flight Simulator II 35.95 

Impossible Mission 23.95 

International Soccer , 19.95 

Kennedy Approacti 23.95 

Micro League Baseball 26.95 

Statistics Disk ( 1984) 13.95 

Mig Afley Ace 23.95 

Night Mission Pinball 21.95 

One On One 28.95 

Pilstop II 27.95 

Ouestron 27.95 

Raid Over Moscow 27.95 

Solo Flight 23.95 

Strip Poker 20.95 

Tournament Tennis 17.95 

ZaKxon 24.95 

ADVENTURE AND MIND GAMES 

Amazon 23.95 

Adventure Conslfuclion Set 37.95 

Adventure Master 27.95 

Below the Root 18.95 

Bridge 4.0 17.95 

Cutthroats 28.95 

Dragonworld 23.95 

Fahrenheit 451 23.95 

Felony 23.95 

Hitchhi1(ers Guide 25,95 

Infidel 25.95 

Monty Plays Scrabble 27.95 

Murder By The Dozen 23.95 

Party Qui; 49.95 

Party Quiz Refills 17.95 

Rendevoos With Rama 23.95 

Robots of Dawn 27.95 

Sargon III 34.95 

Seven Cities of Gold 28.95 

Slarcfoss 26.95 

Suspended 26.95 

Swiss Family Robinson 18.95 

Trivia Fever 27.95 

Ultima 111 39.95 

Witness 25.95 

EDUCATIONAL PROGRAMS 

Agent USA 21.95 

Cave of the Word Wizard 24.95 

CSS Success w/Math Series ea 18.95 

Evelyn Wood's Dynamic Reader 35 95 

Harcouft Brace Computer SAT 54.95 

Kidwrtter 19.95 Memory Manor 19.95 

Muppe! Learning Keys 4995 

Spell It 33.95 

Spellicopler 27 95 

Story Machine 22.95 

Word Attack 33,95 

WORD PROC.-DATE BASES- 
SPREADSHEETS 
Batteries Included Home Organizers 

Checkbook 20.95 

Electronic Address Book 20.95 

Home Inventory 20-95 

Mail List 20-95 

Pholos/Slides/Movies 20.95 

Recipes 20.95 



Batteries Included Home Pak 34.95 

Calc Result Advanced 69 95 

Calc Result Easy 35-95 

Complete Personal Accounlant 54.95 

Consultant (Delphi's Oracle) 68.95 

Cut and Paste 36.95 

Financial Cookbook 35.95 

Fleet Systems 5695 

Magic Desk I 35.95 

Mirage Data Base Manager 67,95 

Mirage Wofd Processof 56 95 

Net Worth 55-95 

Paperclip w/Spelipack 82.95 

PFSFile 55,95 

Pracli Calc 34.95 

Pract! File , 34.95 

Superbase 64 52.95 

Total Text 2 6 31.95 

Total Mailing List & Labels 16.95 

GRAPHICS 

Animation Station 63.95 

Doodle 28.95 

Future House Light Pen 23.95 

Moviemaker 37.95 

Pen & Peripheral Vision 41 .95 

Print Shop 31 .95 

MISCELLANEOUS 

Bulk Discs ■ Quantities of 10 12.95 

CompuServe Starter Kit 21.95 

Fast Load 27-95 

Maxell Disks - Box Of 10 16.95 

Pro-Tech Vinyl Covers 5-35 

Simons Basic 38.95 

Tac 11 Joystick 9.95 

Vidtex 21.95 

VIP Terminal 29.95 



HARDWARE AND PERIPHERALS 

B I 80 Column Display 134,95 

Cardco +G Interlace 69.95 

Commodore 801 Ribbons 7.95 

Commodore Hardware CALL 

Iridux Disk Drive 279.00 

Okinate 10 w/Plug and Print 199.00 

OkinatelOBIk&Wht Ribbon 4.75 

Okinate 10 Color Ribbon 5.25 

Panasonic KXP1091 Printer 279.00 

Prowriler 7500 Prinler 229.00 

Prowriler 8510 AP Prinler 299.00 

Prowriler 8510 Ribbons 5.95 

LEROrS CHEATSHEETS $2.95 

Basic Paperclip 

Blanks (3) Practicalc 

Calc Result Adv Printers 
Calc Result Easy Epson RX80 

Comal (1-4) Gemini 10X 

The Consultant 1525/801' 

Doodle Quick Brown Fox 

Easy Script Simon's Basic 

Flight Simulator II Speedscript 

For Ihe Beginner Sprites Only 

Hes Writer Superbase 64 

Logo Sheet 1 Terminals 
Logo Sheet 2 Smart 64 

The Manager Vidtex 

Multiplan VtP 

Word Pro 3/Plus 




SPECIALS 

Cardco Numeric Keypad 

32.95 

CompuServe Starter 

Kit/Vidtex 

39.95 

S-Games 

(Formerly Hes Games) 

11.95 



TOLL FREE 

1-800-633-8699 

In Pa. Call 
A.C. 717 838-8632 

ORDERING & TERMS 

• VISA & M C. accepted with no 
charge in Ihe continental U,S A, 

* S2.50 shipping charge on orders 
untJer $100.00 

* Pa. Residents add 6% Sales Tax 

• Prices subject to change w/o 
notice 

■ 48 hour shipping for cashier 
check - Money order - charge 
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MAPPING THE COMMODORE 64 by Sheldon 
Leemon (COMPUTE! Publications, Inc., 1984; $14.95). 
268 pages, 65536 memory locations, soft bound. 

Mention memory inap to a veteran peruser of computer 
journals and you will conjure up a vision of a nearly 
endless column of numbers, flanked by cryptic labels 
to the left and equally cryptic descriptive messages to 
the right. While this sort of information is eminently use- 
ful to those familiar with the innermost secrets of their 
computer, it provides the average user with very little 
that's definitive. 

Mapping Tlte Comniodore 64 is a memory map with 
a difference. The list of numbers (in hexadecimal and 
decimal) is still there along with the cryptic labels and 
associated comments. However, comparing this book 
to a memory map is akin to comparing a detailed travel 
guide to a simple road map. Each significant address 
or group of addresses is annotated in considerable— yet 
concise -detail. These are not just one or two sentence 
descriptions. The shortest explanations run several para- 
graphs. The longest are actually comprehensive tutorials 
on the specific features on the Commodore 64. 

For example, the memory locations devoted to the VIC 
chip comprise a surprisingly thorough description of the 
graphics capabilities of the Commodore 64. This book 




'And not only that. . . hut someday your name 
will be mud in the computer industry!" 



by my side proved a valuable aid in preparing the graph- 
ics articles for the October and November issues oi Ahoy! 
Actually, the entire C-64 4K I/O block (53248-57343; 
SDOOO-SDFFF) spans nearly l(X) pages. 

The layout follows the meinory arrangement of the 
C-64. Thus chapter I is entitled "Page 0" in reference 
to the machine language notation for the first 256 bytes 
(0-255) of available memory. This has nothing to do with 
the page numbering of the book. As a result, the book 
lacks a definitive topical organization other than that 
which may be associated with a specific memory block. 
Beginners should take warning. Some idea of what you 
are looking for is needed to comfortably find your way 
around this format. Detailed explanations of specific lo- 
cations are often associated with other addresses which 
may be further on in the text. 

Specific areas of emphasis are the first kilobyte of 
RAM (used by BASIC and the operating sy,stem) and 
the ROMs themselves. Most of the addresses in the first 
group include useful hints and tips on the effect of modi- 
fying the contents of the particular location. The sec- 
ond group is broken down into the specific operating 
system routines. Brief descriptions are provided on just 
what each routine does. 

Sprinkled throughout are program examples in both 
BASIC and ML which are used to illustrate the various 
points. These range from brief one or two line affairs 
to full blown utilities. For example, the Vector to Key- 
board Table Setup Routine, addresses 655-656 (S28F- 
$290). includes a C-64 version of a keypress routine 
which generates an entire BASIC keyword from a single 
SHlFTed or COMMODOREd keystroke. 

The index was a bit unusual. Rather than the custom- 
ary page numbers, each item was referenced to its actual 
memory address. On occasion this proved to be a minor 
boon, particularly when all that was needed was the actu- 
al address associated with the item in question. Most of 
the time, this arrangement was less than optimum as the 
relationship between page numbers and address was not 
immediately obvious (let's see now, 56576 should be 
around page 203 or thereabouts...). The most serious 
fiaw in this system was trying to find my way around 
the I/O block, which in the C-64 is multilayered. Track- 
ing down the description of the character generator ROM 
took a little doing. 

The appendix section was surprisingly brief, consist- 
ing only of a program typing guide and a list of the Com- 
modore ASCII, screen, color and key codes. You defin- 
itely get a lot of meat in this volume. 

Mapping the Commodore 64 is a must-have for any- 
one serious about using the 64 for anything other than 
running canned software. For beginners, appreciation 
will increase directly with their computational sophisti- 
cation. Advanced users will find many surprises within 
its covers. All users will find it a valuable aid in working 
with their machine. D —Morton Kevelson 
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A Function Plotter 
for the C-64 



G 



4 



his program will provide 
assistance in solving 
numerous problems in 

physics, mathematics, 

and other fields where it is necessary 
to see the behavior of a mathemati- 
cal function. It will plot a function, 
in high resolution, into a given range 
on a small screen (which is large 
enough for most applications). It is 
practically error-proof and easy to 
use, employing the same principles 
as bit map graphics, but over a screen 
of only 9600 pixels (120 * 80). The 
user can specify the portion of the 
function he wants depicted, and 
change the function. 

For programmers, the listing on 
page 109 is easy to understand. It is 
composed almost entirely of subrou- 
tines, and contains many REM's 
throughout. 

HOW TO USE 
THE PROGRAM 

On the bottom of the screen, the 
names of all the keys that can be used 
are displayed. Their functions are as 
follows: 

f1: Graph Cleaner. Clears the 
small screen, but not the equation. 
You can ask for another range with- 
out respecifying the function, 

f3: Range Changer. When 
you press this key, the program will 
request the minimum value (XO) and 
the maximum value (XM) on the X- 
Axis into which you want to plot the 
function. It will then request the min- 
imum and maximum values on the 
Y-Axis (YO, YM). It will then ask for 

By J.M. Marcano 



the number of pixels you want to use 
in making the graphic. The plotting 
will follow this last input. 
f5: Function Changer. 

Changes the function in the program. 
It is located on line 55 of the pro- 
gram. After this operation the values 
of all the variables vanish, due to the 
fact that the program is ENDed and 
then RUN again. 

f7: Compare with Memory. 
This key, when pressed once, shows 
the graphic on the screen together 



with the one in memory, in order to 
allow you to compare them. When 
you press the key again, it returns the 
screen to its original condition. 

f 2: Store M+. When this key is 
pressed, any graphic on the screen is 
copied into memory over any graph- 
ic residing there. 

f4; Recall. Calls the graphic in 
memory back, and puts it on the 
screen over any graphic that is there. 

f6: Clear Memory. D 
SEE PROGRAM LISTING ON PAGE 109 




On Screen Status Display 



PACE 
LINE 

COL I JUST B INST 

l kt i i.TTi\ il > 



^ FILENAME, 

TTTj 10 CPI 42*. USED 
C23 INBAUHAUS 



A ■ Cursor location 

B ■ Scroll Indicator 

C - Prim features currflrtiily belrtg used 

D ' Filename ot (gic) 

E ' Parcentaga o\ RAM (memory) u^ed 

F - Ruler (also message line} 

G Word wrapfjuatificatlDn flag 

H ' "Block marked' liap 

I - Insert mode flag 

J ■ Characters per inch 

K ■ Numt>er ot the current lont 

L ■ Name of (he current font 



Overview ot FONTM ASTER 
word processor features: 

1) Powerlul biock manipulation 
commands (Cut, P»ste, Move. Overlay). 

2) User • friendly effects include (fonts, 
super/sub scripts, underlining, bold face, 
etc-l 

3) Up to eight different fonts can be used 
simultaneously. 

4) Many printing options sucti as page number, 
ing. lities, word-vwrap, right justification, and 
more. 

5) Eight disit I/O comtnands (Save, Load, Verity, 
Erase, Etc.). 



Create Your Own or choose Irom over 15 type styles provided In this 
unique program. 

Gouhous English Shjidoi) Manhattan 

• leek Italic .Stop ScMpt 

Bold Hslr(al^ SVTE .^topbold 

Fud«w Hi-noi unopepTBdfi T©'**Tn2'» 



Including: 



I^Ba* 



inc. 



(913) 827-0685 
3010 Arnold Road Salina, KS 67401 
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SM/ilRK 



If you 
enjoy 
playing 

MONOPOLY 

you'll 
love 

Sirl/IRK ! 




{ 



It's Fun For the Whole Family! 

Now you ond your friends con enjoy o fosr paced gonne of SHARK while oil bonking 

rronsoaions, colleaing of renrs, monoging properries ond other rime consuming duties 

ore handled ouromoticolty. „,, ,,, „., 

'^ With SHARK, you con: 

Buy ond morrgoge property 

Build ond rear down houses 

Lisr your cosh, property ond net worth 

AAol^e DEALS ond TRADES with other players 

Include or void different gome options 

Hove up ro 6 people ploy or one rime 




am 
mm 



^ 



PRICe J '20 
j MORTGAGE VALUE $60 
' EACH HOUSE COST S 71 
I RENT iM 

1 WISH TO BUV 



Jr 
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«G0 



(Screen Si mulotion) 
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SH/IRK 



SAGE SOFTWARE 

P.O. Box 2576-F 

Free port, 1x77541-2578 



Our Guoronree: If you ore nor 
sorisfied with your disl<. please 
return ro Soge Sofrwore for o 
free replocemenr. 



A Reol Esrore Trading Gome 



YES. please send me SHARK 
_ Dlsk(s) @ S23 (U.S.) eoch 



Send Chech or money order fO; 
SAGE SOFTWARE 

PC Dox257«-F 
FreeporrTX 77541-2576 



Nome 



Ci»y 



Adcfress 



Siote 



2,p. 



5oge Software promises prompt delivery! 



Comi-nodore ^ ij o fegurefed Trodemork of Commodore Ouvness ^toc^^Aes Inc 



Mooopoty IS Q teqiyered rrodenvyli o* rbrtier Dforhef? 



WAW. n a tfodemort* o^ Soge SoHwore 
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A Screen-Dump Utility for the C-64 



by Michael Beutjer 




dump that will 
dump any one of the 
four screens by itself. 
To print your pictures, you 
must first save them to disk in the 
following format: 



K 



Imost everyone loves to 
doodle, and your 64 is a 
great place to do it! 
Whether you use a light 
pen. joystick, trackball, or write spe- 
cial programs to make your high res- 
olution screens, the 320 x 200 sketch 
pad in your Commodore 64 is just 
plain fun. Sometimes, though, that 
doesn't seem to be enough. So why 
not 640 by 400? 

That's exactly what you'll get with 
Quad-Print, a printer utility that 
dumps four hi-res screens together to 
form one big picture. Versions are 
provided to work with the Commo- 
dore 1526, Epson, or Gemini print- 
ers. Wth a little work, you can prob- 
ably use any printer. Included with- 
in the 1526 version is a single screen 



Bytes 

- 1023 
1024 - 9023 



Contents 

Screen Memory 
Hi-res Bit map 



This is compatible with disk files 
created with DOODLE! from City 
Software, so you can use those pic- 
tures directly. Note that the color 
memory section is used only for dis- 
playing the pictures, not in the print- 
out. Making edges match is a little 
tricky at first, but with a little prac- 
tice it becomes much easier. 

The 1526 version begins on page 
95, and the Epson/Gemini version on 
page 97. If you type in the Epson/ 
Gemini version, only the set of con- 
trol code lines (1140 - 1190) corre- 
sponding to your printer should be 
typed. The number in line 565 must 
also be changed from 61145 to 61166 



for Gemini printers. 
Save the program before 
running it. When you run it, 
you will see a menu screen with de- 
scriptions of the program functions. 
The even numbered function keys 
load pictures from the disk drive. 
When answering the filename re- 
quest, be sure to type the DD prefix 
for DOODLE! files. The odd num- 
bered keys display the pictures cur- 
rently in memory. The pictures are 
numbered 1-4 and when they are 
printed together, they will be arranged 
according to Table 1. Check before 
you print your picture to be sure you 
have the four screens arranged prop- 
erly. If you need to swap pictures 
from one place to another, use the @ 
key from the main menu and enter 
the numbers of the screens you want 
to swap. Notice that your picture 
names are printed at the top of the 
menu screen to help you keep track 
of them. 

Other program functions are posi- 
tive or negative dump (English pound 
sign or left arrow key, respectively), 
and quick view screens (asterisk) 
which display the pictures in "slide 
show" fashion. To use the quick view 
feature, press the asterisk key from 
the main menu. Screen 1 will be dis- 
played, and you may cycle through 
the screens by pressing the odd num- 
bered function keys. To return to the 
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TABLE 1 




Pktur* Ho. 


Address 


Position 


1 
2 
3 
4 


$4000 
$6000 
$8000 
$AO00 

TABLE 9 


Top Left 
Top Right 
Bottom Left 
Bottom Right 


ML Routin* 


Epson/ Gemini 
Address 


1596 Address 


Move Picture 
Display on/off 
Dump positive 
Dump negative 
Load picture 


49490 
49188 
49209 
49205 
49454 


49430 
49188 
49209 
49205 
49374 


.p,^, Note that all "POKF values are the same for either version. J 



main menu, press the space bar. To 
use the single screen dump for the 
1526, press the up arrow key and in- 
dicate which screen (1-4) you wish to 



dump. 

Let's look at the Epson/Gemini 
version to see how it works. (The 
1526 version works in generally the 



same way and the SYS addresses for 
it are in Table 2.) There are four ma- 
chine language subroutines that the 
BASIC program uses to handle the 
jobs of loading, moving, and print- 
ing your pictures. The move routine 
starts at 49490, and it moves both the 
bit map and the color information 
blcKk anywhere in the computer's 
memory. To use it, we must pass the 
"from" and "to" addresses to the rou- 
tine. POKE the desired addresses as 
follows: 



POKE 

49152 
49153 
49154 
49155 



Value 
Bit Map 
Bit Map 
Color Info 
Color Info 



From 
To 

From 
To 



We need only POKE the high byte 
of these addresses— the low t^te must 
always be zero. The routine moves 
the two areas independently; it is up 
to us to keep track of where we have 
put them. We may use any of the 



1596 VERSION 

Main Routine 



Qu«d-Pr int 
(C) 19S4 

by M. Beuljer 

This program 
dumps 4 tii-res 
screens side by 
s ide to produce 
one 640 x 40D 
printout on 
a 1526 printer . 



•=$COO0 
DATA AREA 



ORIC 

DEST 

CORIG 

CDEST 

LENGTH 

NAME 

PBLOCK 

ROWCMT 

coix;nt 

FCSAVE 

FBSAVE 

REVRSE 

TEMP 

FLAG 



.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

•=*tl6 

.BYTE 

0,0,0,0,0,0 

. BYTE 









0.0. 



.BYTE 
. BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



LABEL DEFINITIONS 

SCREEN=$2D0a 

SCRNl=$4000 

SCRN2^$6a00 

SCRN3==$8000 

SCRN4=«A000 

COOES=$C1DO 



QUAD PRINT 

■^ SOURCE CODE LISTINGS 



P0INTR=$FB 

KERNAL LABELS 

CHK0UT=$FFC9 
CHROUTi$FFD2 
CLOSE=$FFC3 
CLRCHN=$FFCC 
OPEN=$FFC0 
SETLFS=$FFBA 
SETNAM=$FFBD 
L0AD=$FFD5 
CLALL=$FFE7 
lSTOP=tFFEl 
UNLSH=tFFAE 

PROGRAM .AREA 

TURN HIRES SCREEN 
ON OR OFF 
DISPL LDA IDOll 
EOR *S20 
STA too 11 
LDA IDOIS 
EOR t%QS 
STA tDOlS 
RTS 

DUMP ROUTINE 

NEGATIVE ENTRY 
REV LDA »25S 
BNE STORE 

i NORMAL ENTRY 



NOREVS LDA 

STORE STA 

JSR 

; POINT TO 

; SCREEN 1 

LDA 

STA 

LDA 



10 

REVRSE 
COP EN 

* 2 
»<SCRN1 
POINTR 
I>SCRN1 



STA 
LDA 
STA 
LDA 
STA 



POINTRfl 

(KSCRN2 

FBSAVE 

#>SCRN2 

FCSAVE 



25 ROWS PER SCREEN 
PRINT 2 SCREENS 



LDA 


«2S 




LDA 


SFB 


STA 


ROWCNT 




STA 


FBSAVE 


JSR 


ROW 




LDA 


$FC 


; POINT TO 






STA 


FCSAVE 


; SCREEN 3 & 


4 




PLA 




LDA 


KSCRN3 




STA 


$FC 


STA 


POINTR 




PLA 




LDA 


«>SCRN3 




STA 


$FB 


STA 


POINTR+1 


; CHECK STOP 


KEY 


LDA 


KSCRN4 




JSR 


STOP 


STA 


FBSAVE 




BNE 


NOQU IT 


LDA 


»>SCRN4 




PLA 




STA 


FCSAVE 




PLA 




; PRINT 2 MORE! 




JMP 


QUIT 


LDA 


»25 


; NEXT 


ROW 




STA 


ROWCNT 


NOQU 1 T 


DEC 


ROWCNT 


JSR 


ROW 




BNE 


ROW 


QUIT JSR 


CFIN 




RTS 




RTS 










; 




! PRINT 40 


COLUMNS 


■ DO 25 ROWS 










: OF 80 COLUMNS 


DOOOL 


LDA 


»40 


; 






STA 


COLCNT 


; SEND GRAPHICS 


COLUMN 


LDY 


10 


ROW JSR 


CLFD 


ROTATE 


LOX 


»0 


: SEND 4 COLUMNS 


; TURN 


OFF B.ASIC ROM 


JSR 


OOOOL 




SEI 




; SAVE POINTER 




LDA 


#46 


LDA 


$FB 




STA 


I 


PHA 






LDA 


(POINTft>,Y 


LDA 


$FC 




STA 


TEMP 


PHA 




; TURN 


ON BASIC ROM 


; POINT TO 






LDA 


#47 


; SECOND SCREEN 




STA 


1 


LDA 


FBSAVE 




CLl 




STA 


SFB 


; SHIFT BITS 


INTO 



LDA FCSAVE 
STA $FC 

SEND 40 MORE 

COLUMNS 

JSR DOOOL 

RESTORE SCREEN 

POINTERS 
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Mix and match the hard- 
ware peripherals of your 
preference. Increase your 
programming power with 
easier-to-use disk commands 
and machine languaqe. All 
with one plug-in module. 

• lets YOU use almost any 
combination of 
Commodore-compatible 
floppy or hard disk drives 
and Centronics-type 
parallel printers 

• all interface functions and 
device allocations are set 
by switches on the 
BusCard II module; errors 
due to software incom- 
patibility are eliminated 

• includes BASIC 4.0, the 
same powerful language 
used in Commodore's top- 
of-the-IIne business com- 

fiuters, plus a machine 
anguage monitor 



Double your screen capacity 
when using your favourite 
Batteries Included software 
programs. B.I.-80 turns your 
40-column screen into a 
crystal -clear, hiqh-visibility 
80-column dispfay. Works 
with PaperClip word- 
processor and The Consul- 
tant database manager- 
maximum readability and 
minimum eye-strain, even 
with a screen full of 
characters. It's the fost, easy, 
plug-in way to get twice the 
amount of data onto your 
monitor screen. And B.f.-80 
also gives you the easier-to- 
use disk commonds, with 
BASIC 4.0 language built 
right into the module. 

• fully self-initializing, no 
commands to enter; just 
plug B.I. -80 into the car- 
tridge slot and you're 
ready to run 

• switch back and forth 



between 80 and 40 col- 
umn display at any time 
completely eliminates 
snow, fuzziness, hashing 
and interference 
eosy-to-install module 
incorporates highest 
quality hardware com- 
ponents throughout; one- 
year manufacturer's war- 
ranty is standard 
comes complete with 80- 
column operating system 
and comprehensive 
documentation, including 
full description of BASIC 
4.0 commands 
use with Commodore 
1701 and 1702 color 
monitors, or any 
monochrome video 
monitor 




■B.I. -80 Column 
Adaptor coming soon for 
Atari XL computers! 



Use the printer of your 
choice with your Com- 
modore computer— just plug 
in this compact module, and 
you're instontly compatible! 
Take advontoge of today's 
high-speed, high-quality 
printers with the B.I. Printer 
Interfoce. 

• works with any 
Centronics-type parallel 
printer, which includes 
olmost all major printers 
on the market 

• completely self-contoined 
and ready to run; no 
extras to buy, no hard- 
ware or software modifi- 
cations to printer or 
computer are required 

• all print functions are con- 
trolled by switches on the 
module; just set them 
once, ond never worry 
about it again 



USE THESE TOOLS WITH I^jeiClQ}, IheCo^tilliuil, AND OTHER HARD-WORKING, HIGH-QUAUTY SOFTWARE PROGRAMS fROM BATTERIES INCLUDED 



JO Mural Street 
Richmond Hill, Ontario 
L4BWS CANADA 

r^te; 681-9947 

Tetex: 06-2) -8290 



C 



BATTERIES 




INCLUDED 



■V. 



1787S Sky Park North, Suite P 

"The Energized Software Company!" '™"%^^' «Tm 

WRITE TO US FOR FULL COLOUR CATXLOCUE of our products for COMMODORE, ATARI, APPLE and IBM SYSTEMS '4 f 6/ 081-98*6 

%fex; S09-t39 



FOR TECHNICAL SUPPORT OR PRODUCT INFORMATION PLEASE PHONE 14 16) 881-9816 



'■ 1985 BATTERIES INCLUDED. AlttE. ATARI, COMMODORE AND ISM ARE RECISTtRCO TRADCMARKS RESPECTIVELV OF At-PLE COMPUTERS INC.. ATARI INC COMMODORE 

BUSINESS MACHINES INC AND IBM BUSINESS MACHINSSINC 



riMl AlftfAty 




a s 



tMMr ( riaittc 



Typi 


ol fri^tributien 




6f CittS : 




HiMf jctirint 



C-64's RAM including "under" the 
kemal or BASIC, but to avoid con- 
flicts the BASIC program doesn't 
store screen maps between $0000 and 






$1C00 or $C000 to SCFFF. 

The display on/off routine toggles 
hi-res display on or off. The pictures 
bit map must already be at 8192 



($2000), and the screen memory sec- 
tion must be at 1024 ($0400). The 
BASIC program uses the move rou- 
tine to copy the desired picture into 
position, and the second to turn it on 
for viewing. When yoo are finished 
viewing it, calling the second routine 
again will turn it off. 

The load routine is done from ma- 
chine language so that the address 
header of the disk file may be ignored 
easily. The routine loads the bit map 
file in the display area so that there 
are no conflicts with already loaded 
pictures. It is then moved to the de- 
sired location. Before using this rou- 
tine, the filename must be POKEd 
into the filename area at 49157. and 
the filename length must be POKEd 
into 49156. 

The print routine has two entry 
points: 49209 and 49205 for normal 
and negative printouts respectively. 
Table 1 gives the start address of the 
bit maps which are printed. Printer 



: PRINT AREA 




DOTS 


ASL 


TEMP 




ROL 


PBLOCK.X 




INX 






CPX 


IS 




BNE 


DOTS 




I NY 






CPY 


*8 




BNE 


ROTATE 




CLC 




: BUMP 


BIT MAP POINTER 




LDA 


POINTR 




A(x: 


16 




STA 


POINTR 




LDA 


POINTR+1 




ADC 


*0 




STA 


POINTR+1 




LDX 


#0 


; SEND 


TO 1526 


PRINT 


JSR 


CSEND 




DEC 


COLCNT 




BNE 


COLUMN 




RTS 





LOAD A DOODLE FILE 
AND MOVE IT. 

OPEN 1,8.0 

SCRNLD LDA #1 

LDX #8 

LDY #0 

JSR SETLFS 

LDA LENGTH 

LDX XNAME 

LDY I > NAME 

JSR SETNAM 

LDA «0 
TAX 

; LOAD DOODLE AT ICOO 

LDY #$1C 



JSR 

LDA 
JSR 
JSR 
RTS 



LOAD 

CLOSE 
CLRCHN 



MOVE A DOODLE FILE 
FROM HI=ORIG LO=00 
TO: Hl=DEST LO=aO 



Ml 



MOVE 



CMOVE 



LDY 


to 


STY 


$FB 


LDX 


DEST 


STX 


$FC 


STY 


$FD 


LDX 


ORIG 


STX 


$FE 


STX 


TEMP 


INC 


TEMP 


INY 




CPY 


*$20 


BNE 


Ml 


LDY 


• 


SEI 




LDA 


146 


STA 


1 


LDA 


($FD),Y 


STA 


($FB),Y 


LDA 


#47 


STA 


1 


CLI 


- 


INY 




BNE 


MOVE 


INC 


tFC 


INC 


$FE 


LDA 


tFE 


CMP 


TEMP 


BNE 


MOVE 


LDA 


COEST 


STA 


$FC 


LDA 


OORIG 


STA 


$FE 


LDX 


«4 


SEI 




LDA 


#40 


STA 


1 


LDA 


($FD).Y 


STA 


{$FB).Y 


INY 




BNE 


CMOVE 


INC 


$FC 


INC 


$FE 


DEX 




BNE 


CMOVE 


LDA 


#47 


STA 


1 


CLI 




RTS 





CRSR .BYTE 

.LIB QUICKQ15 26 
.LIB SING1S26 
.END 

Fast Dump Routine 

; Fast 1526 graphic 
; dump rout i ne 
; for Quad Print 

'; OPEN4,4,2 55 (DATA) 

COPEN LDA 14 

TAX 

LDY #255 

JSR SETLFS 

LDA #0 

JSR SETNAM 

JSR OPEN 

BCS COl 
; OPENS, 4, 6 (SPACING) 

LDA #6 

TAY 

LDX #4 

JSR SETLFS 

LDA #0 

JSR SETNAM 

JSR OPEN 

BCS CO I 
; OPEN 5.4.5 
; (PROGRAM CHAR. ) 

LDA 15 

TAY 

LDX «4 

JSR SETLFS 

LDA HO 

JSR SETNAM 

JSR OPEN 

BCS COl 

JSR SETSPC 

CLC 
(301 RTS 
; SET SPACING TO"21" 

SETSPC LDX #6 

JSR CHKOUT 

LDA #21 

JSR CHROUT 

LDA » 1 3 

JSR CHROUT 



; SEND 
CLFD 



JSR UNLSN 
JSR CLRCHN 
A LINEFEED 



LDX #4 
JSR CHKOUT 

LDA »n 

JSR CHROUT 
JSR UNLSN 
JSR CLRCHN 
LDA «D 
STA CRSR 
RTS 
THIS ROUTINE 
PERFORMS 

THE SEND FUNCTION. 
BEFORE THE NEW 
CHAR IS PROGRAMMED 
!T IS CHECKED 
AGAINST THE 
OLD CHARACTER TO 
AVOID UNNECESSARY 
CARRIAGE RETURNS. 
CSEND JSR CHECK 
SEND OLD CHAR, 
BEQ CSNl 
LDX #4 
JSR CHKOUT 
LDA #141 
JSR CHROUT 
JSR UNLSN 
JSR CLRCHN 
LDX «S 
JSR CHKOUT 
LDX «0 
SENl LDA PBLOCK.X 
EOR REVRSE 
JSR CHROUT 
INX 

CPX *S 
BNE SENl 
JSR UNLSN 
BIAS LDX »4 

JSR CHKOUT 
LDX CRSR 
BIl BEQ B12 
LDA #32 
JSR CHROUT 
DEX 
JMP BIl 




Like 
formii 

structi 
sophi 
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R/chmondH 
L4BfB5CAN 
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Ifefex; 06-21 
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"THE CONSULTANT is capable of very lar^e and complicated searches, 
his a verv good system at a reasonable price. Documentation: excellent, overall rating: 9/10' 

-TPl G MAGAZINE 

". . .you should definiteh trv out THE CONSULTANT. . . poweiiul and verv well designed.' 

-EVERVtHING VOL CAN DO W ITH VOL R COMMODORE, 1984 EDITION 

'For a truly professional data management program, you will have to look a long 
time before vou find a better one than THE CONSULTANT" 

-HOME APPLICATIONS FOR THEC-64 




THE N^^ 



• Unctions, us^^f,Pam.in.beV 

• *"'?";-nrrii"*^ . „, flowing 
prvntine f o" (unctions- W'" . 

• SOcoVumntep ^^^ 

_ On s<:^*"S functions . .^fjes 

« Report ^y«f d tempW^*" J? .^ a„d 

Lists, ln«"***'^' 

Like a smart, computerized filing cabinet, THE CONSULTANT controls your information for you. You choose the file size and 

format - THE CONSULTANT'S flexible file structure adapts to almost any application you can think of. And you can change the 

structure of your files without having to re-enter any data - a great time saver. Easy to learn and simple to use. Big system speed and 

sophisticated sorting functions, all for an exceptionallv low price. No wonder THE CONSULTANT comes highly recommended! 

AVAI LABLE NOW FOR THE COMMODORE 64. COMING SOON FOR THE IBM PC. 




DED 



30 Mural S(r^ 
dlchmond Hilt, Ontario 

L4BtBS CANADA 

14161881-9941 

Klex:0621029O 



'*The Energized Software O 




17875 Sky Park North, Sutte P 

Irving, California 

USA 92714 

(4161881-9816 



WHITE TO US FOR FULL COLOttR CMKLOCUE of OUf products for COMMODORE, ATARI, APPLE and IBM SVSTEMS 

FOR reCHNICAL SUPPORT OR PRODUCT INFORMATION Pi£ASE PHONE IIISI 881-9816 



Tblex:so9-iJ9 



C 1985 BATTERIES INCLUDED. APPLE. ATARI, COMMODORE AND IBM ARE HEaiSTEREOTRAUMARKS RESPECTIVELT OF AJHtE COMPUTERS INC . ATARI INC. COMMODORE 

BUSINESS MACHINES INC . AND IBM BUSINESS MACHINES INC 




Single screen dump on a Commodore 1526 printer. 



setup information for the Epson/ 
Gemini version is contained in the 



modules at the end of the DATA 
statements. The first byte of each 



command contains the number of 
bytes in the command string followed 
by the actual string. The line spac- 
ing command area begins at 49600 
($C1C0); the line graphics setup 
command begins at 49608 {SC1C8). 
If you have a printer other than Ep- 
son or Gemini, you will need to 
change these values to those recog- 
nized by your printer. This will not 
guarantee that the routine will work, 
because there are differences in the 
way printers translate graphics codes 
into print patterns. The Epson and 
Gemini patterns print bit 7 at the top 
and bit at the bottom of each col- 
umn of eight dots of graphics byte. 
If your printer is different, you may 
need to do another translation of the 
printer codes before you print them; 
however you will have to use the 
source code (reproduced on these 
pages) and an assembler to do this. 



CRSR 

t2S4 

CHROUT 

UNLSK 

CLRCHN 

PBLSV 



; DONE 
CFIM 



[NC 

LDA 

JSR 

JSR 

JSR 

JSR 

RTS 
CLOSE CHANS. 

JSR CLFD 
*6 

CHKOOT 
#24 

CHROUT 
*\3 

CHROUT 
UNLSN 
CLRCHN 
CLALL 



; SEND 
CSNl 



LDX 

JSR 

LOA 

JSR 

LOA 

JSR 

JSR 

JSR 

JSR 

RTS 

SAME CHAR AGAIN 

LDX «4 

CHKOUT 

1254 

CHROUT 

UNLSN 

CLRCHN 

CRSR 



CHECK 
CHKl 



CKOUT 
PBLSV 
PBLl 



PBSAVE 



JSR 

LDA 

JSR 

JSR 

JSR 

iNC 

RTS 

LDX 

LDA 

CMP 

BNE 

INX 

CPX 

SHE 

RTS 

LDX 

LDA 

STA 

INX 

CPX 

8NE 

RTS 

.BYTE 

.END 



10 

PBLOCK.X 
PBSAVE, X 
CKOUT 

«8 
CKKl 

to 

PBLOCK , X 
PBSAVE, X 

f8 
PBLl 



Singl* Screen Dump 

;Th is rout ine sends 
;a single 1526 pie. 
REVl LDA II2SS 

BNE STORE 1 



NOREVl 


LDA 


#0 ■ 


STORE 1 


STA 


REVRSE 




JSR 


COPEN 




LDA 


*0 




STA 


POINTH 




LDA 


ORIG 




STA 


POINTR+1 




LDA 


t25 




STA 


ROWCNT 


ROWl 


JSR 


CLFO 




JSR 


DOCOL 




JSR 


STOP 




BNE 


NOQl 




JMP 


DONE 


NOQl 


DEC 


ROWCNT 




BNE 


ROWl 


DONE 


JSR 
RTS 
.END 


CFIN 



EPSOH/GEMINI 
VERSION 



Quad-Print 

(C) 1984 

by M. Beutjer 

This program dumps 
4 hi-res screens 
side by side to 
produce one 
S40 X 400 printout. 



=$C000 



DATA AREA 



ORIG 

DEST 

CORIG 

CDEST 

LENGTH 



BYTE 

BYTE 

BYTE 

BYTE 

BYTE 
NAME *=»*16 
PRNTLN .BYTE 0,0,0, 

0,0,0.0,0 
ROWCNT .BYTE 
COLCNT .BYTE 
FCSAVE .BYTE 
FBSAVE .BYTE 



WEVRSE 


.BYTE 


^ 


TEMP 


.BYTE 





FLAG 


.BYTE 





■ LABEL DEFINITIONS 


SCREEN 


=$2000 




SCRNls 


$4000 




SCRN2= 


$6000 




SCRN3= 


$8000 




SCRN4= 


$Aoao 




CODES= 


$C1D0 




POINTR 


= $FB 




; KERNAL LABELS 


CHKOUT 


=$FFC9 




CHROUT 


=$FFD2 




CLOSE= 


$FFC3 




CLRCHN 


=$FFCC 




OPEN=$FFC0 




SETLFS 


=$FFBA 




SETNAM 


=$FFBD 




LOAD=$FF05 




CLALL= 


SFFE7 




STOP=JFFei 




• PROGRAM .AREA 


! TURN 


HIRES 


SCREEN 


; ON OR OFF 




DISPL 


LOA 


$0011 




BOR 


l»$20 




STA 


$D011 




LDA 


$D018 




BOR 


*$08 




STA 


$0018 




RTS 






DUMP ROUTINE 


\ NEGATIVE ENTRY 


REV 


LOA 


*2S$ 




BNE 


STORE 


; NORMAL ENTRY 


NOREVS 


LDA 


»0 


STORE 


STA 


REVRSE 


: OPEN 


4,4.0 






LDA 


»4 




LDX 


*A 



^^K LOY 


10 


JSR 


SETLFS 


LDA 


10 


JSR 


SETNAM 


JSR 


OPEN 


: DIRECT OUTPUT 


; TO DEVICE 


4 


LDX 


*4 


JSR 


CHKOUT 


i POINT TO 


SCREEN 1 


; AND 2 




LDA 


KSCRNl 


STA 


POINTR 


LDA 


#>SCHNI 


STA 


POINTR*-! 


LDA 


KSCRN2 


STA 


FBSAVE 


LDA 


l>SCRN2 


STA 


FCSAVE 


; SET PRINTER LINE 


: SPACING 




LDX 


KSPCMLN 


JSR 


PNTCMD 


JSR 


CHROUT 


i 2 5 ROWS PER SCREEN 


LDA 


«23 


STA 


ROWCNT 


; PRINT 2 SCREENS! 


JSR 


ROW 


; POINT TO 


SCREEN 3 


; AND 4 




LDA 


#<SCRN3 


STA 


POINTR 


LOA 


#>SCRN3 


STA 


POlNTR+1 


LDA 


KSCRN4 


STA 


FBSAVE 


LDA 


#>SCRN4 


STA 


FCSAVE 


LDA 


#25 


STA 


ROWCNT 


: PRINT 2 MORE! 


JSR 


ROW 


; SEND PRINTER 


; RESET CODE 


QUIT LDA 


#27 


JSR 


CHROUT 


LDA 


#64 


JSR 


CHROUT 


LDA 


»4 


; CLOSE CHANNEL 


JSR 


CLOSE 
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AhoyI uses only 

maxell 

premium quality disks. 



We're sure you're looking forward to trying out the programs in this issue of 
AhoyI But we're equally sure that you're not lool<ing forward to typing them in. If 
you're an average typist, that should take you upwards of 25 hours. Not counting time 
spent correcting your typing errors, of course. How long that will take is anyone's guess. 
• How would you like someone to type the programs for you? At a price ih, say~32C 
an hour? Wouldn't it be worth 32<t an hour to free yourself up for more pleasant pursuits- 
like enjoying the rest of your Ahoy! magazine? • If you order the Ahoy! Program Disk or 
Cassette, you'll be getting that service for just under 32(1: an hour. Because for $7.95 (postage 
included^ we'll mail you all the programs in this issue, on a disk or cassette that's tested and 
ready to run with your C-64 or VIC 20, If you subscribe, you'it save even more: 12 monthly 
disks or cassettes for $79.95, 24 for $149.95 (postage included)* . Back issues are available as 
well. • You already know how to type. Why not use the hours you spend with your Commodore 
to learn something new? 'Canadian and foreign prices higher, 



SINGLE ISSUE AND SUBSCRIPTION PRICES 



(Postage and l-lanclling Included) 
U.S.A. 
D June '85 AhoyI Disk 
D June '85 AhoyI Cassette 



$ 7.95 



n 12-Monlh Disk Subscription 
G 12-Month Cassette Subscription 



$ 79.95 



CANADA 

S 12.95 



$ 99.95 



ELSEWHERE 

$ 13.95 

$124.95 



BACK ISSUES 

Jan. '84 issue Sd.95: all other back issues $8.95 
indicate your choices below, and specify dishi 
or cassette al the bottom. In Canada add $2.00 
per issue: ouiside U.S. and Canada add S4.00 
per issue. 



n 24-Month Disk Subscription 
D 24-Monlti Cassette Subscription 



$149.95 



$179.95 



Make check or money order payable to Double L Software. 

Send coupon or facsimile to: NAME 

Ahoy! Program Disk/Cassette 

Ion International Inc. 

45 West 34th Street, Suite 407 

New York. NY 10001 



N.Y 



I Jan, '84 



G. 
G 



S9.95 
$8.95 
$8.95 
$8.95 



U. 

a. 



$8.95 
S8.95 

se.95 

$8.95_; 



SF^CIFY 

C DISK :.: CASSETTE 
Slate Residents must add 8V4<!^ sales tax 



ADDRESS. 
CIT Y 



STATE, 



^IP_ 




nssonatioti of 
Cuiwoiiorf 
Enthu'iasts 
Southfjsl 



Quad'Piint dump on a Commodore 1526 printer. 



You should also keep in mind the 
fact that the interface you use (for 
your Epson or Gemini printer) will 
affect the graphics operation. These 
programs assume that your printer 
does no translation of the data that 
is sent t^ the computer (transparent), 
and that the printer will do a linefeed 
automatically whenever it receives a 



carriage return. 

For those of you using the 1526 
version, I'm sure you will notice that 
your printer seems to do a lot of mov- 
ing back and forth to print the pic- 
tures. Unfortunately, this seems to be 
unavoidable due to the way Commo- 
dore has set up the graphics for this 
printer. Acconiing to the manual, you 



may print one graphics character per 
line. The only way to print more than 
one graphics character per line is to 
send the printer a CHR$(141), or S8D 
hex, which is a "line reset" command. 
This command causes a carriage re- 
turn without a linefeed, and that is 
why you see all the shaking. I don't 
think it will cause any problems, as 
I have dumped numerous pictures on 
mine. If there is a better way to do 
this, I haven't seen it. (But I would 
like to!) 

Although hi-res screen design pro- 
grams for the 64 are presently lim- 
ited to one screen for the "sketch pad," 
this utility will allow you to do a lot 
of designs with your computer and 
printer that are not yet possible any 
other way. Good luck and happy 
doodling! D 
SEE PROGRAM USTINGS ON PAGE 95 



r 



JSR CLRCHN O 


OLUMN LDY #0 


; AT ICOO 




LDA 140 


RTS R 


OTATE LOX DO 


LDA 


LENGTH 


STA 1 




TURN OFF BASIC ROM 


LDX 


*<NAME 


CMOVE LDA ($FD),Y 




DO 25 ROWS 


SEI 


LDY 


l>NAME 


STA (JFB),Y 




OF 80 COLUMNS 


LOA #46 


JSR 


SETNAM 


INY 






STA 1 


LDA 


10 


BNE CMOVE 




SEND GRAPHICS 


LDA (POINTR).Y 


TAX 




1 NC JFC 




SETUP COVSHAND 


STA TEMP 


LDY 


#$1C 


INC tFE 


ROW LDX KLNCMLN ; 


TURN ON BASIC ROM 


JSR 


LOAD 


DEX 


JSR PNTCMO 


LDA #47 


LOA 


• 1 


BNE CMOVE 


; SEND 40 COLUMNS 


STA 1 


JSR 


CLOSE 


LDA 147 


JSR D0C»L 


CLl 


JSR 


CLRCHN 


STA 1 


: SAVE POINTER ; 


SHIFT BITS 


RTS 




CLI 


LDA $FB ; 


INTO PRINT AREA 






RTS 


PHA D 


OTS ASL TEMP 


i MOVE A DOODLE j 


PNTCMD STX PNTOUT+2 


LOA JFC 


ROL PRNTLN.X 


i FILE FROM 




STX CMPARE+1 


PHA 


I NX 


; HI=ORIG LO=00 | 


LDY *0 


; POINT ro 


CPX *S 


; TO: KINDEST LO=00 | 


LDX *0 


; SECOND SCREEN 


BNE DOTS 






PNTOUT INX 


LDA FBSAVE 


I NY 


LDY 


#0 


LDA LNCMLN , X 


STA tPB 


CPY #8 


STY 


tFB 


JSR CHROUT 


LOA FCSAVE 


BNE ROTATE 


LOX 


DEST 


TXA 


STA JFC i 


BUMP BIT MAP 


STX 


»FC 


CMPARE CMP LNCMLN, Y 


; SEND 40 MORE COLS. ; 


POINTER 


STY 


»FD 


BMI PNTOUT 


JSR DOOOL 


CLC 


LDX 


ORIG 


RTS 


; RESTORE SCREEN 


LOA POINTR 


STX 


$FE 




; POINTERS 


ADC *8 


STX 


TEMP 


\ EPSON FRtNTER 


LOA $FB 


STA POINTR 


Ml INC 


TEMP 


; CONTROL CODES 


STA FBSAVE 


LDA POINTR* 1 


I NY 






LDA $FC 


ADC 10 


CPY 


*$20 


1 LNCMLN IS 


STA FCSAVE 


STA POIHTR*! 


BNE 


Ml 


; LINE OaVMANO LENGTH 


PLA 


LDX 10 


LDY 


10 


; (NO. OF BYTES} 


STA SFC ; 


SEND GRAPHICS 


MOVE SEI 




LNCMLN .BYTE 5 


PLA ; 


TO PRINTER 


LDA 


#46 




STA $FB F 


>RINT LDA PRNTLN.X 


STA 


1 


• LINDAT IS 


; CARRIAGE RETURN 


EOR REVRSE 


LDA 


($FD),y 


: PRINTER SETUP 


LDA #13 


JSR CHROUT 


STA 


{IFB).Y 


: COMMAND: 


JSR CHROUT 


INX 


LDA 


147 


: ESC, •,6,128,2 


; CHECK STOP KEY 


CPX fg 


STA 


1 


LINDAT .BYTE 


JSR STOP 


BNE PRINT 


CLI 




27,42,6,128.2 


BNE NOQUIT 


DEC COLCNT 


I NY 




t 


PLA 


BNE COLUMN 


BNE 


MOVE 


•=LNCMLS+10 


PLA 


RTS 


INC 


JFC 


; SPOHLN IS 


JMP QU 1 T 




(NC 


»FE 


; LENGTH OF 


; NEXT ROW 


LOAD A DOODLE 


LDA 


$Fe 


; LINE SPACING 


NOQUIT DEC ROWCNT 


FILE AND MOVE IT. 


CMP 


TEMP 


; COMMAND 


BNE ROW 




BNE 


MOVE 


SPCMLN .BYTE 3 


RTS 


OPEN 1,8.0 


LDA 


CDEST 


; 




5CRNLD LDA «1 


STA 


$FC 


i SPCDAT IS 




; PRINT 4 COLUMNS 


LOX IS 


LDA 


CORIG 


; PRINTER SPACING 




. 


LDY 10 


STA 


$FE 


; CxavWAND: ESC. A, 8 


DOCOL LDA 140 1 


JSR SETLFS 


LDX 


*4 


SPCDAT .BYTE 27,65.8 


STA COLCNT 1 


LOAD DOODLE 


SEI 




.END 


< 
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INNOVATIVE ORGANIZERS, INC. 
For Commodore 64™ & VIC-20™ 




WELCOME, to the family of INNOVATIVE ORGANIZERS. These ATTRAC- 
TIVE power organiEer stands, made of ABS PLASTICS, U.L. RATED, provide an 
opportunity for a more PROFESSIONAL looking computer installation, both at 
HOME and in the WORK PLACE. 

There is AMPLE room under the organizer to place all the computer 
accessories: POWER SUPPLY, MODEM, GAME CARTRIDGES, MEMORY 
EXPANSION, and MUCH MORE. 

Now. let's examine how these organizers work. There are 3 CRT-Models. 

CRT-1 holds a Monitor or T.V. Set and a VIC 20 or 64. All wires & cartridges fit 
neatly under the organizer. 

CRT-2 same as CRT-I , but also has: ONE-STEP MASTER SWITCH (permits 4 
pieces of hardware to be turned on and off from one switch, plus circuit protection 
incoming powder fused with 6AMP Fuse), 

CRT-3 same as CRT-2, but also has: SURGE & SPIKE PROTECTION built in. 
P-D-1: HOLDS 1525 PRINTER & 1541 DISK DRIVE. 
All wires & cartridges fit neatly under the organizer. 

Ask about our Power Lock Switch & Power Portable 
Computer Fan & 2 Outlet Surge & Spike Protection. 

CALL FOR LIST OF SOFTWARE AVAILABLE 

\ !<■ !Cl ..ml ( ,.nriii,«loiv M .ire ir;iiliiit,rrl,> ..I t .inmi.Kl,>Tv Klenrnrim. I TO 

P.O. Box 108, Markleville, IN 46056 



Reader Sarvlce No. 276 




CRT-1 
CRT-2 
CRT-3 
P-D-1 



$17.98 
$29.97 
$37.97 
$19.48 



Optional Accessories 

SS-1 Surge & Spike 
Suppressor 

$29.95 

CF-1 Computer Fan 
$29.95 



Plus Shipping 

CALL TOLL FREE 
1-800-233-3645 Ext. 15 



For the Unexpanded VIC 20 
By Kevin Dewey 



II n this game you are Speedy, the fastest being in 
the universe -not an amazing accomphshment, 
seeing that no one else can move. Your goal is 
, 1 to collect all your smiley-faced green friends for 

a party you're throwing, while avoiding your frowning 
purple enemies, who are no fun at all, and in fact tend 
to make you explode upon contact with them. Yes, they 
are party poopers. 

You get seven little Speedy clones to do this, and you 
gain another for every screen of friends you successfully 
clear. Speedy clones move very fast, and in all directions, 
so good reflexes and hand-eye coordination come in 
handy, but it's wise to also incorporate a bit of strategy 
into your gameplay. For instance, try to find the easiest 
ways to get a friend out from a group of enemies before 
plunging into the group. This, as well as other ways of 
using brain power instead of relying solely on a fast hand, 
will affect the outcome of the game for the better. 

SCORING 

The game is scored as follows. Every friend you pick 
up is worth seven points. Every bonus token is worth 
the number of the screen you arc on, multiplied by the 



number of friends you have picked up thus far on that 
screen. For this reason, it is best to pick up a lot of your 
friends on a screen, and then pick up the bonus object 
when there are, say, one or two friends left, to maxi- 
mize your score. The bonus objects are easy to spot, 
because they look unlike anything else. 

At the end of the game, 50 bonus points are awarded 
for each screen you have successfully passed during the 
course of the game. 

SKILL LEVELS 

There are 15 skill levels, 1 being the easiest and 15 
being the hardest. The main difference between the skill 
levels is in the amount of enemies. On screens like 15 
there will be a great deal more purple faces than on the 
easier screens, but this can be looked at two ways. While 
it is harder to clear a screen of goodies when there are 
a lot of enemies around, the higher the skill level, the 
more the bonus token is worth, and the more points are 
possible. To get really high scores, you must learn to play 
well on the harder screens. 

1 hope you enjoy playing Speedy] D 

SEE PROGRAM LISTING ON PAGE 108 



THE Short Wave Listener for 

RECEPTION OF MORSE CODE & 
RADIO TELETYPE SIGNALS. 



.^. 



Plug the SWL cartridge into your Commodore "64" Expansion Port, connect 

shortwave radio and you'll be watching text readout from weather stations, 

news services, ships and HAM radio operators all over the world. A whole 

new use for your home computer. The SWL contains both program in 

ROfii and radio interface circuit to copy Morse code and all 

speeds/shifts of radio teletype. Plus the on screen tuning 

indicators mean you never have to take your eyes off the video 

for perfect tuning. Housed in a small 3"x2-1/2" K7/8" y^ ^^ 

enclosure, with speaker In/out and practice hand Key 

jacks, it needs no other computer connection or 

power supply. Unshitt on space, word wrap 

around, real time clock, and keyword or 

manual printer control for permanent v^tiC' (\, 

paper copy, so that you won't miss a /.*sS* ' 

single bit of the action. For about 

the price of another "Pac-Zapper' 

game, you can tie into the 



'€k 






vN^ 



X^^ 









S^l 



LEARN 
MORSE CODE 
THE RIGHT WAY 
WITH THE 

Morse Coach. 

$4995 



exciting world of digital 
communication with 
the Microlog SWL. 



$ 



64 



A complete Morse code tutor in a conveni- 
ent plug-in cartridge for your Commodore 
64." The Morse Coach means business. It's 
not a toy program or a simple random code gen- 
erator. Originally developed jointly by Microlog and 
several government agencies experienced in Morse in- 
struction. Four years of extensive service prove it's the 
quickest way to Morse proficiency.The method works! You start from absolutely no 
knowledge of Morse, progress through the alphanumeric symbols, and on to any speed 
desired. The "alphabet" part of the program introduces new characters and plots the progress 
on a bar-chart. The speed/test section correlates the input, analyzes mistakes and provides a 
ntout of the analysis/test results on your Commodore screen or printer. As a bonus, it also boosts 
typing skill. You've never seen any tape or program do that! In fact, there's never been a system so 
thorough, so efficient and so effective as the Microlog Morse Coach, 
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at TUSSEY COMPUTER PRODUCTS* . . 

WE KNOW WHAT YOU WANT! 




Wt ttkt J bitt aut at pricti 



WE VALUE YOUR BUSIHESS. IN ORDER TO EARN IT. WE ARE GOING TO GIVE YOU THE THINGS YOU WANT MOST FROM A MAIL ORDER COMPUTER STORE 
1 1 Low Prices! We try to have Ihe lowesi prices around If vou do lind a lower price, 3| Siraigtit talk ■ We will give you accurate mlorinaiion as lo ouf stocliing condmon 

please give us a tliance lo beat it 
2) F»J(, dependable service • Oui shipping deparinieni works hard to geS ^our 4| Perspnnel whg care The people ai TCP sincerely want you lo be happy wilh 

orders oul rtiMckly. usually vwithm one business day the way your oitler is handled We all know our |obs depend on having a happy 

ORDERS ONLY PLEASE: 800-468-9044 '""°"'" INFORMATION & PA ORDERS 814-234-2236 

PHONE LINES OPEN 10-8 MON-FRI. 10-5 SAT 



THE PANASONIC KXP 1091 PRINTER 

N«ar lener qualitf at the flictc of a swilch 

Tht 1091 riptJMong M 120cpi jnd hii a Ik buHir It 44^10 hat ill ihi 
0(tni modn ol tht Gtmni 1QX tnd Epton RX fld phit 1 Bid ditttantn 
Tht 1 09 1 h*t a nitt hi w qbilirr swiich Flip ii vid rou li*i i lupai tight 
1 2 tiT 19 ni*tr.x Mflth ch«Kl«>it th«t rival « Cf*tf tirAt«l< Tht ] 03 1 FiU 
bgih htaton md Tricior ittd 

Our pries SZ79.D0 

PanasgnJG KXP 1090 $199.00 

|{1ui;& liQi fUme ntrai Mlei qudlilvj 

SG 1 a NLO Dot Matrix ffDtn Star Call 




Gemini I OX : 1234 00" 

St. lb tjll 

Pomlnn, IB cfi. Iinti vilUi UiaOO' 



PRINTER INTERFACES 



KeieiGPi.. J J6 99 

KMk SPl/e i 59 99 

KelBt SPI , , . , ( 43 99 

CardcD^'G J 6fll0 

CflTfkij va J 44 00 

Cdr{kD PS liiicrlju Cull 



riiB ConSulidfiT S 63 99 

Moagr Databite Managat/ 

Report GEiier»iDr S 63 99 

Supcibu« 64(d| s b6 99 

QaU Mana^ei II by Timewniki ... S 3? 99 

Pr*ciiliJe br MSldi s 31 00 



ri>idl Tpfecthti I16S0 laFiwanblcj i SE 00 

Coinriiodof e 1 660 l^pw' . iM 

CoiTi|)u»fvc vans kji 1 26 9S 

WMWidje miodcni -...,,... , , . . J ?6 9b 

VIP imiimil pickayt iff SoftlM* , . . ( J9 96 

Vidiei lef liiinal -,....,..... ... t JO OD 

ViiltFK piu} Coitipusetve Siarlei t 43 99 



WORD PROCESSORS 



Moid PriKHSur bi Piol»ne|ilt i 39 9» 

iivep*a 3*^64 iiv/sp«niighi|il} s !i900 

Papeicliptdi ,-. J 59 00 

Papntlip w/ipchpackiii^ , , j TS 99 

C^ritco Wiite !4iiw G4(ait) i 37 00 

Wrroyr Piatcssiwial A P |dr t b9 00 

OiMju Wiilei /SpcllFr|«f S 4b 00 

kVcr^l Wnreiid) b^ IniiwnrU i }2 99 

Sciiiii 64 » 19 99 



ti«>!i tfeii i 29 00 

Munwrit hvyp^El , ^ . J 3bi 00 

b ^flt Ekp -niciracc CB/b , . , , s *ifi 00 

Ma- 1 Now 04 ,, J 32 00 

Ssiell Nuw ,, ,. , s ai dH 

flic Now i 27 9b 

Criph Now ....._-_.,, CiHI 






Shippni So't**!- dfid Mte^vniie^ ^a *? iO p(i 



flPl} M-ii Ak tti .Hill 1.^11-41^1 luatf. 
TtiBH atdei\ •.Nppfd OPS liiiie*). nttied ofhir^.i? 
Allflcci-, f«1le^^ (<\rT ftKoi^nl AM J* e«' Vi%a ^-nl 
'lH4Vt«M jid Vtf<iii)if wtt -t w#i«iif hixkii td 

d ui.gnui |i4iOit<i^u PA TesLi[l«nl% 4ild ti " 
^aiei tjk fVicei subitct ta (hinge Atl nAti Imil 
DdeCTwt yoducti fepljced or rjpawd H Dv diSD«i»cn 



Cadui LD I iinei quaitiy prau«r ..,,..,,, }439 00 

Cardco LQ3 S3I900 

tpsort ax 60 J?2i DO 

Epson Ptioibtj .*.... Cilt 

Diidaia Piinlfii ,,..., Call 

Hush SG 1109.00 

'Slai tAiUonii pnnten cdnt< wiiti a 1 jtw vtrntmi* 



IWI EiptBSSby HTC --..-- s 7399 

Small Cflijip s 49 95 

SI 80 Balteri» IncMmg 90 cokirnn tatt *ilh 

fidsic AG built m SI 37 99 

BjiC^id II by Baiici'e^ l^idutfed Call 



SPREADSHEETS 



Cak Reitili Adti [d. caitl I ft} 00 

Cik Result EaH icon I * 33 99 

PS iPiog SjiieddslHiiDId) ........... S 4999 

PrjQiicak 64|d| , . . s 36 00 

PfJctiHk 64p| 1 34 00 



ienilh ] 2" Ambei 197 00 

Zenith ! 2" Gi«ri .,.,.. t 92 00 

SakauSC 100 Color UonitH S2390Q 

Amdeir Cokw I Plus , , , J2M 00 

Cable fof montiias 1 995 

1702 .,,., Call 



DISK DRIVES 



MSD SDI 123100 

MSO SOU Call 

Initui or Oisl D"w Cjll 

1541 Call 



NEW PRODUCTS 



Tin iraiTi Sottiyfic Iniegidicd AP 

DaiabasE. Sfireaduie^i CjII 

HnintpA liQiii Bai Inci tniEgrattd WP. 

OaiabJse TclccDinniuPxcitiani , C4<l 

l/iiJiiM Irti Spiea[j$fa«ei. OdtabHt. 

Buiirtn^ Oi*(llua; ...^.j**.* Cal' 

Eflu fa^i Load Cal' 

BtodCibumil Print Shop S Jl i»ij 

Plavi Nell Whert t^c ai lau Ig c^d Igi a prjie .t ^ 
Uecdu^e \ni(.ei on those aenn are volatile Mid we 
Adiit la bi Sure we nn yiwe yuu Vit \oite» lHii.es mi 



"DEALER INQUIRIES INVITED" 
Other product lines available! Call for prices. 



Pal 64 asseiTiUei by Prot«ne(d| s 39 39 

Power 64 Basic bii Prdbneidi . , , ., . i 39 99 

Ua\tnu 64. bDih Pal G4 and ?dhii 64{d| S 69 33 

Canada A /Ml backup ;irogiBm ,..,..,,. l 39 95 

SiniDn I Bastt ,.,,, s 39 9b 

CSH 1541 Abgnmcnl . , ., i 3! 99 



MISCELLANEOUS 



Naa^ad w'pa<nier|d| , s 65 00 

SfiellprD 64{dJ by Proline S 39 93 

Mailpro 64 J 33 33 

Coitiplcie Personal AccouJHantid) s 54 00 

Tfte Haiti* Accountani . . t 26 95 
TiiTiewnrlu Inwnlory. A 'P. ArR. Cash Flow 
Manageitienl. Ccner«l Ltdger. Parboil 
Wanagenieni ....,.,.,...,,,,,, s4D 95 eacti 

64 DDCior ..,..,.«, % ?4 95 

fZM. Fust Cisi tfM 1 36 9!i 

Supei Sk*tc^ . . > 39 99 



Commodore 64 is $147.00* 

'Wrih Ihe purchase ol any prinlei. disk dnve, iiigniioi, or modem 

1541 Disk Olive S195Q0 

1 702 Coloi Wonilor s 1 95 OD 

1650 Modem Call 

Plus 4. CI 6. olheis Call 

SX 64 S496 DO 



NEW PRINTER FROM STAR! 

The SG 10 IS an upgraife oi ihe popular Gpimni ]0X It rufis ai 120 
CPS. and ha& alt the pimi modes of ihe 10X What makes Ihis pniKer 
(tifiereni is a near leitei qualiiv mode ai 60 CPS. <Nt\h a t7 by U 
rnaUixl With litis mode the prtniec does double tJu^v- elmiinaling aneed 
for a letter qualily prmter li alsti includes a built tn 2k bultei. ajid a 
I Ycar wairanly 
PLEASE CALL FOR OUR LOW PRICE' 



BUY A BUNDLE— 
$AVE A BUNDLE 

Older one at these popular packages ol products by fiurnber loi $upei 
savings! 



Padiage ^5 



WORD PROCESSOR 64 «nd SPELIPRQ BA 

The word piucesso' and i{wlling chKfcer Irani figline SoMt^are 



Package «& 



1541 EXPflESS tiid the FAST CABLE 

tweiylhing i/Qu need ip speed up rou' an* dnve 



Package ij 



CONSULTANT ind PAPERCLIP W/SPELLPACK 

Iheie ai( ihr popular OataUase »ni VUoia PiaccUm Irani ^iieriei Inckjdtd 

4129,99 



Package fiS 

MIRAGE DATABASE/ADVANCED REPORT GENERATOR ind 
MIRAGE PROFESSIONAL WORD PROCESSOR 

A pDwerlu! pKltagc inai iniegtalas together 

I124.9S 



Pactiage alO 

BI-AO Md PAPERCLIP W/SPELLPACK 

The 80 ujiiiJuii cacti wiii^ me Bavc 4 bmii m and the Papered^ w/sptllpatk both Horn 

Baltcfics biEJudid PafiircJip woiki wiiti ihe BO column taid ia g^vr inu a pomfIuI word 

piocctut 

IZ0995 



TUSSEY COMPUTER PRODUCTS 

' (farmerly Tussey Mountain Software) 

BOX 1006 

STATE COLLEGE. PA 16804 



Reader Service No. 278 



COMMODORE 64 

* with $19.95 Software Purchase 

^139 

• 170K Disk Drive $149.00 * 

• Tractor Friction Printer $169.00 

• 13" Hi-Res Color Monitor $189.00 * 

* See Page 13 



COMPUTER AND SOFTWARE 

SALE 



• COMMODORE 64 COMPUTER t13t.OO 

You poy only 5139.00 (wilh the S19 95 iottware 
purchase, see below) when you ordef (he powerful 
a4K COMMODORE 64 COMPUTERi LESS ihe value of 
the SftCIAl SOFTWAfiE DISCOUNT COUPON we pock 
with yaur compuler thot ollows you to SAVE OVER 
SSOO off sodwore sole pricesii Wilh only SlOO of 
savings applied, your net computer cost is $39 001 ' 

' 1T0K DISK DRIVE t144.00 

You pay only 5)^900 [with the SI9.9S sollware 
purchase, see belowj when you order the 170K Disk 
Drive' LESS the value of the SPECIAL SOFTWARE 
DISCOUNT COUPOf^ we pock wilh your distt drive thot 
ollows you to SAVE OVER SSOO off sofiwore sole 
prices'' Wilh only SlOO ol savings opplied your net 
disk drive cost isSW.OO. 

* 13" HI-RES COLOR MONITOR tItf.OO 

Vou poy only 5189,00 (wilh the 519. 9S software 
purchase, see below} when you order this 13 COLOR 
MONITOR wilh sharper ond clearer resolution thon 
ony other color monitors we hove tested' LESS value 
o! the SPECIAL SOFTWARE DISCOUNT COUPON we 
pock wilh your monttor thot allows you to save over 
SSOO off softwore sole prices!' With onty SlOO of 
sovings applied, your net color monilor cost is only 
589.00.(16 Colors). 

SO COLUMN SO CPS 
TRACTION/FRICTION PRINTER $16«.00 

You pay only 5169.00 when you order the Comstor T F 
deluxe line printer thai prints S'lxtl full size single 
sheet, roll or fori fold paper, lobels etc. tmpocl dot 
malrix. bidireciionol. LESS the value of the SPECIAL 
SOFTWARE OISCOLINT COUPON we pock with your 
printer thai allows you to SAVE OVER SSOO off 
software sole pricesf! With only SlOO of savings 
applied your net prinler cosi is only S69.00. 

M COLUMN BOARD S74.D0 

Now you progrom 60 COLUMNS on the screen at one 
time! Converts your Commodore 64 to 80 COLUMNS 
when you plug in the 80 COLUMN EXPANSION 
BOARD!! PLUS 4 slot eiponder' Con use wifh most 
software 

BO COLUMNS IN COLOR 
EXECUTIVE WORD PROCESSOR i3f .00 

This EXECUTIVE WORD PROCESSOR is ihe fmesi 
available lor the COMMODORE 64 computer! The 
ULTIMATE FOR PROFESSIONAL Word Processing 
DISPLAYS 40 or 80 COIUMNS IN COLOR or block ond 
whitet Simple to operate powerful text editmg w^th 
250 WORD DICTIONARY, complete cursor ond 
insert delete key controls line ond porogroph 
insertion, outomotic deletion centering, morgin 
settings ond output to oil printers' Includes a 
powerful moil merge. 
List 599.00 SALE »M.M Coupon 529 95 



SUPER AUTO COM 
DIAL MODEM ^^ 



CALL 
BEFORE 

YOU 
ORDER 



PRICES 
MAY 
BE 
LOWER 



(Best communications pockage in USA) 



SPECIAL SOFTWARE COUPON 



We pack a SPECIAL SOFTWARE DISCOUNT 

I COUPON with every COMMODORE M 

I COMPUTER, DISK DRIVE, PRINTER, or 

MONITOR we lelll Thi» coupon allowt you 

lo SAVE OVER tSOO OFF SALE PRICES!! 



(Examples) 

PROFESSIONAL SOFTWARE 
COMMODORE 64 



Nam* 


Ll>t 


5aU 


Coupon 


E»ecurive Wo'd Processoi 


m 00 


539 00 


529 95 


Executive Data Bose 


S69 00 


529 00 


519 95 


70 000 Word DiiUatiarf 


S3» 95 


SU 95 


510 00 


PiQclicalc II 


S69.95 


5J9 95 


SJJ 95 


Prmi Shop (Oiskj 


mt5 


531 95 


524 95 


Prqclicuk 


S59 95 


S2i.95 


519 95 


Programmers Reference 


S20 95 


516.95 


512 50 


Guide 








Progpommers Hetper 


S59.9i 


529 95 


519 95 


[Disk] 








80 Column Screen (Disk] 


159.95 


S39 9S 


519 95 


Oiik Filer Iby flip N File) 


539.95 


SU95 


512 95 


Delune lape Cassette 


Ja9 00 


SJJ 95 


534 95 


Pro Joy Slick 


519 95 


SI2.95 


510 00 


Light Pen 


539.95 


it J 95 


5 9 95 


Duir Cover 


S « 95 


5 6 95 


5 a iO 


Simon i Bosic 


S29 95 


522 95 


519 95 


Pilslop II EpyM 


S39 95 


S2< 95 


519 95 


Super Grophic& Expander 


529 95 


522 95 


519.95 


Music Cok I 


SS9 95 


529 95 


521 95 


f ilewriler 


559 95 


5J9 95 


524 95 



(See over 100 coupon Hems in our catalog) 

Write or call for 

I Sample SPECIAL SOFTWARE COUPON! I 



EXECUTIVE QUALITY 
PROFESSIONAL BUSINESS SOFTWARE 
The Cadillac of Bu>lr>e» Programs 
for Commodora M Computeri 
m lilt - $g|( CoupoK 

579 95 SJ9 95 S21 9S 
579.95 529,95 534 95 

579. 95 529 9S 534 95 

579 95 539 95 534 95 

579 95 539 95 524 95 



Ham 

ln,;entDry Mona^ement 
Accounts Receivabl« 
Accourtti Payable 
Pov'oll 
Geneiol Ledger 



MThe $19.95 Software Purchose Options 



1 24 Program Bonui Pack (rape or diskl 

2 Oil Boirpn^ Strategy BoarcJ Game 

3 Duk Drive Cleoner 

4 HES Camel Idilkl 

5 Pc^cjo Jee (lapeor dt&k) 



M5! 
539 95 

S49 95 
529 95 
529 95 
529 95 



5ALE 
119,95 
119.91 
H9.9J 
1I9.9) 
>19.1S 
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• Computer Learning Pad $37.95 

• New Voice Synthesizer $49.00 

• 12" Green or Amber Monitor $79.95 

• 12" Daisy Wheel Printer $199.00 



SUPER AUTO DIAL MODEM (S9.00 

Eos/ to use. Jubl plug mlo your Commodore bi 
computer ond you re ready to tronsmif ond receive 
messoges Eosier to use Ihon dialing your lelephoi%e 
iust push rsne key on you* computer' Includes 
exclusive easy to use program for up ond down 
looding to printer and disk drives 
L.stS129 00SALEIJ».«0 

NEW COMPUTER LEARNING PAD S37.tS 

Makes other grophics tablets obsolete. This new TECH 
SKETCH LEARNING PAD ollows you lo draw on your 
TV or Monitor ond then you can print whotever you 
drow on Ihe screen on your printers FANTASTIC " 
ListS79 95 SALE »J7.»S. 

NEW VOICE SYNTHESIZER S4f .00 

For Com 64 or VIC30 computers Just plug it in and 
you con program words ond sentences odiust volume 
and pitch, moke talking adventure gomes sound 
odion gomes ond cuslomiied talkies'' FOR ONiy 
$19.95 you con odd TEXT TO SPEECH |u5t type a word 
and hear your compulei talk ADO SOUND TO 

Zork . SCOTT ADAMS AND AARDVARK ADVENTURE 
GAMES' I (Disk or lope.) 

11" GREEN OR AMBER MONITOR 179.9$ 

Your choice of greer> or omber screen moniior lop 
quality, 80 columns * 34 lines eosy to read, onti 
glare' PLUS S*95 (or connecling coble Com-64 or 
VIC 20 

11" DAISY WHEEL PRINTER (199.00 
"JUKI" Superb letter quolity doisy wheel printer 12 
e«tro lorge carnage, up lo 13 CPS bi directtono 
printing, drop in cossetie ribbon, Centronics porollel 
or RS232 serial port built in< (Specify) 
t,islS299.D0 SALE5149.M 

CARDCOG+ INTERFACE tS9.00 

For Commodore 64 ond Vic 20 computers. Lets you use 
other printers wilh Certlronics interfaces. This 
inlerfoce lets the printer act like o Commociore printer 
including printing the Commodore graphics (Dot 
motriv with graphic capability printers). 
ListSIOT 00 SALE t59,>l> 

PROTECTO WARRANTY 

All Protectos producls carry o minimum 90 doy 
warronly. Therefore, if onything fails within 90 
days from (tie dote of purcftose. you simply 
servd your product to us via LJnited Pofcel 
Service prepoid. We vyili IMMEDIATELY send 
you o replocemerrt at no chorge via United 
Porcel Service prepaid. Tf^is worronty proves 
once again lliat Wo Love Our Cuitomers. 



* LOWEST PRICES • IS DAY FREE TRIAL 

• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL 



PHONE ORDERS 

8 Q.m. ■ 8 p.m. Weekdays 
9 a.m. - 12 noot* Soturdciys 



• 40 DAY FREE REPLACEMENT WARRANTY 
• OVER 500 PROGRAMS • FREE CATALOGS 



J 



Add $10. (X) tor shipping, handling and insurance. Illinois residents 
pleoseodd 6% tox. Add 530.00 for CANADA. PUERTO RICO, HAWAII. 
ALASKA APO-FPO orders. Conodian orders must be in U.S. doMors. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Cashiers Cfieck Money Order ot Personal Check Allow 14 
doys for delivery. 2 to 7 days for phone orders 1 doy express moil ! 
VISA - MASTERCARD COD. No CO D toConatia APOFPO 



We Liove Our Customers 

Box 550, Barrington, Illinois 60010 



312/382-5244 to order 
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FANTASTIC COMPUTIR PRINTER SALE!!! 



10X COM-STAR 

Tractor Friction Printer 



Only 



130-150 CPS 



n 



COMSTAR 



List $499 



• Lovvest Sale Price, Premium Quality. Tractor/Friction Printer in the U.S.A. (Best Value) 

• High Speed 1301 50 Characters Per Second • W. 46. 66. 80, 96, 132 line spacing 

• Word Processing, Letters • Business forms • Labels. Graphics. Tables • List Programs 

• Fantastic Graphics • Print Modem Data • The Most Important Accessory For Your Computer 



Premium Quality 

130-150 CPS lOX COMSTAR 

Printer $199 

10" carriage, prints 8'^"xH" standard 
single sheet or continuous feed paper, 
Bi-directional, Impact, dot matrix, ISO- 
ISO CPS. 9 X 9 dot matrix with double 
strlite capability for 18 x 18 dot matrix 
(near letter quality), high resolution big 
image, underlining, baclt spacing, true 
lower descenders with super and 
subscripts, prints standard, italic, block 
graphics, and special characters. It 
gives you print quality and features 
found on printers costing twice as 
much!! (Centronics Parallel Interface) 
(Better than Epson FX80). List t499.00. 
Sale $199.00. 

Premium Quality 150170 CPS 

15 1/2 X COM STAR Business 

Printer $319.00 

Has all the features of the lOX COM- 
STAR PRINTER plus 151.4" carriage and 
more powerful electronics components to 
handle large ledger business forms! 
(Better than Epson FX 100). List $599. 
Sale $319.00. 



■JUKI 

12" DAISY WHEEL 
PRINTER $199.00 

■JUKI" Superb letter quality daisy 
wheel printer, 12" extra large carriage, 
up to 12CPS bi-directional printing, 
drop-in cassette ribbon, (90 day 
warranty) Centronics parallel or RS232 
serial port built in! (Specify). 
List $299.00. Sale $199.00. 



■JUKI' 

Printer/Typewriter 
Combination .S'279.00 

"JUKI" Superb letter quality, daisy 
wheel printer/typewriter combination. 
Two machines in one — just a flick of the 
switch. 12" extra large carriage, 
typewriter keyboard, automatic margin 
control and relocate key drop in cassette 
ribbon! (90 day warranty) Centronics 
parallel or RS232 serial port built in 
(Specify). List $399.00. .Sale 9279.00. 



OOlympia 



Executive Letter Quality $339.00 
15" Daisy Wheel Printer 

This Is the world's finest daisy wheel 
printer. Fantastic letter quality, up to 20 
CPS bidirectional, will handle 14.4" 
forms width! Has a 256 character print 
buffer, special print enhancements, built 
in tractor-feed (Centronics Parallel and 
RS232C Interface) (90 day warranty). 
List $649.00. Sale $339.00 



tlOlympia 



Printer/Typewriter Combination $439.00 

Better than IBM Selectric. Superb 
computer printer combined with the 
world's finest electronic typewriter. Two 
machines in one, juat flick the switch for 
up to 20 CPS printing (300 Words per 
minute) on a 15" carriage that handles 
up to 14 1/8" in. paper. Drop in cassette 
ribbon — express lift off correction, 
Centronics parallel interface (90 day 
warranty ) . List $749.00. Sale $439.00. 



15 Day Free Trial — J Year Immediate Replacement Warranty 



■PARALLEL INTERFACES 



Atori — $59,00. For VIC-2Q and COM-64 — $59.00. Apple — $79.00. 



Add S(4 50 for shipping, hondling and msufOnce. (Ilinoi^ restdenis 
pleoie odd 6'. <ox. Add iW.(K) for CANADA PUERTO RICO. HAWAII, 
ALASKA. APO-FPO orders. Conod'On orders muit be in US, dollor$- 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPl CANADA 
Er>close Caiihiers Check Money Order or Personal Check. Allow 14 
doys delivery, 2 to 7 doys tor phone orders. 1 day express mail' 
VISA MASTERCARD - COD, No C O D to Canodo or APOFPO 



We Love Our Customers 

Box 550, Barhngton, Illinois 60010 

312/382-5244 to order 



COM-STAR PLUS+ 

Print Example: 



AKOCFSHXJKUINOraraTUVHXYZ X 2: 
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FANTASTIC PRINTER «l 
^24'* SALE!! ^a4'^^ 

CammadarG 64 — VIC 20 — A far! ^ i 

u 40 And 80 Column Printers . Up To 100 Characters Per Second ; Full Graphics Capability ^f * 
i: Upper And Lower Case 'f^ Advanced Thermal Technology For Quiet Operation 




3100 Alphacom 42-80 CPS 40 Column Printer i 

Print out listings with full computer character 
sets (interface required, see below). Print in 
upper and lower case. Comes with o roll of 
paper and all power adapters needed. Perfect 
for a spare printer or program lister. List 599.00. 
Sale $24.95. I 

40 Column Extra Paper LIST SALE 

3103 25 Meter Rolls Blue S9.95 J3.00 

3104 40 Meter Rolls Blue S16.95 $3.95 

3105 25 Meter Rolls Block (I per pkg.) S12,95 S3. 95 

3106 25 Meter Rolls Blue (2 per pkg.) S19.95 S5.9S. 

3107 25 Meter Rolls Black (2 per pkg.) 519.95 S5.9S 



3150 Alphacom 81-100 CPS 80 Column Printer 

Now you con hove a printer for the cost of a 
large box of paper. This printer prints in upper 
and lower case with true lower descenders. 
Comes with 1 roll of paper and power adopter. 
With the intelligent interfaces (sold below) you 
can do Ascii graphics OS well as Atori or 
Commodore graphics. Plus you can do 
underlining and expanded modes. Print out 
pictures, program listings, word processing 
pages, etc. Perfect for the student or 
homeowner. List $199.00. Sole 539.95. 

80 Column Extra Paper LIST SALE 

3153 40 Meter Rolls Blue Sl').95 S3. 95 

3154 40 Meter Rolls Block 519.95 S4.95 

3155 25 Meter Rolls Blue (2 per pkg.) 519.95 $7.95 

3156 25 Meter Rolls Block (2 per pkg.) SI9.95 S8.95 



3101 Intelligent Commodore Interface Allows you to 
hook the 40 or 80 column printer to the Commodore 64, do 
program listings, allows software screen dumps, etc. 
Includes Commodore graphics and reverse chorocters. 
(Specify 40 or 80 Column) List S59.95, 
40 Column Sale S9.95. 80 Column Sale S14.95. 




3102 Intelligent Atari Interface — Allows you to hooli 
the 40 or 80 column printer to ihe Atori computer dc 
progrom listings, allows software screen dumps, etc 
Includes Atari graphics and reverse characters. (Specify 40 
or 80 Column) ListS59.95. 
40 Column Sale $9.95. 80 Column Sale $14.95. 



Add SiO 00 for shipping handling and insurance Illinois residents 
pleose add6°. tai. Add S30 00 (or CANADA PUERTO RICO HAWAII 
ALASKA APO FPO orders Canodion orders musi be in US dollars 
WE DO NOT EXPORF lO OTHER COUNTRIES EXCEPT CANADA 
Enclose Cashiers Check Money Order or Personal Check Allow 14 
doys for delivery 2 to 7 doys lor phone orders I doy express mail ' 
VISA MASTERCARD COD No C O D to Canada APO FPO 



We LtO'oe Our Customers 

Box 550, Barrington, Illinois 60010 

312/382-5244 to order 
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apabilit) 



n Printer 

characfe 
). Print ii 
I a roll 
?d. Perfec 
.ist 599.00 



.1ST SALI 

i995 $3.0( 

'6.95 S3.9i 

2.95 S3.9J 

9.95 J5.9! 

9-95 S5.»i 



FOR CHILDREN-ADULTS- BUSINESS 



Complete Auto Dial 
Telecommunications Package 

The only telecommunications pacliage you will ever need. 

(Exclusive Easy To Use Features) 

^^^-*- rote/ -*-r.^ 

Telecommunications 

• 300 Baud Modem • Auto Dial • Auto Answer • Upload & Download 

• Membership in 52 Database Services (UPI News, etc.) 

Reach Out and Access Someone 



// 





• Educational courses 

• Financial Information 

• Banking at Home 



• Popular Games 



• News Updates and Information 

• Electronic Shopping 

• Research and Reference Materials 



The Total Telecommonications Package offers you all this plus ... 

• Auto Log-on . Stores on Disk Downloaded Files 

. On line Clo^^k ^^ * ^^?'^' ^'^^' ^'""^ ^''^ °"d 'Jp'^'^'d^ Text or Program Files 

. ror.t,,r=^Jr^no I uuo I - ^L • Select Any Protocol (access almost any computer or modem) 

• Capture ond Display High Resolution Charocters • Plus Much Much More moaem; 

• Download Text, Program or Data Files ^^ _ _ 

9 E A OO 

List $129 95 Special Low-Low Price ^ ^ 

le J14.95. *® *""® " *"'® ♦•'" '* *^^ on'y telecommunicaf ions package you will need we will give you 15 doys Free Trial. 



J to hook 
puter, do 
nps, etc 
ipecify 40 



Add S3.00 for shipping, handling and Insurance. Illinois residents 
pleose add 6% ton. Add S6.00 for CANADA. PUERTO RICO, HAWAfl, 
AlASKA. APO-FPO orders. Canadian orders must be <n U $ dallors 
we OO NOT EXPOfIT TO OTHER COUNTRIES. EXCEPT CANADA. 
Enclose Coshiers Check. Money Order or Personal Check. Allow M 
do/s for delivery 2 to 7 doys (or phone orders. I day express moil ! 
VISA — MASTER CARD - COD 

No CO D. to Conado. APOFPO. 



We Love Our Customers 

Box 550. Barrington, Illinois 60010 

312/382-5244 to order 



Reader Sarviee No. 244 



r 




• 10 issues of TPUG magazine 

• Advice from experts like Jim Butterfield and Elizabeth Deal 

• Access to a huge library of outstanding public domain software 

• An invitation to attend the Annual TPUG conference, May 25 and 26 
in Toronto, Canada, with two full days of seminars on all aspects of 
Commodore computing. 



JOIN NOW! 



I would like to join TPUG as an associate member at a cost of US$25.00. 
Send your cheque, money order or credit card number to: 

TPUG Inc., 

1912A Avenue Road, 

Toronto, Ontario, Canada 

M5M4A1 



Name. 



Address , 



□ Cheque 
Credit Card # 



D Money Order 



n Credit Card , 
Expiry date 



Amount in U.S. funds $ . 
Signature 



Type of Computer 



Disk Drive 



Printer 



ivlodem 



Otfier 
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JUKI 6300 

Juki Office Machine Corporation 

$995 

There is basically one word to de- 
scribe the Juki 6300: professional. It 
has every feature that a daisy wheel 
printer should, and they all work 
flawlessly. 

The 6300 prints at speeds up to 40 
characters per second bidirectional- 
ly. It will vaiy the pitch from 10 to 
12 to 15 characters per inch, or pro- 
portionally space text. Daisy wheels 
are readily available, for it uses the 
standard Diablo format. I found the 
print quality to be excellent. All char- 
acters were fully formed, and the 
alignment was perfect. 

Printing effects are numerous. The 
6300 will boldface, underscore, sha- 
dow print, subscript, and superscript. 
One unique feature is called high 
quality mode. Normally, the printer 
advances the ribbon a fraction of a 
space between characters. In high 
quality mode, the increment is one 
ftill space for each character printed. 
In addition to proportionally spacing 
text, the printer will auto-justify- 
add 1/120" spaces to the proportion- 
ally spaced text until the margins are 
reached. 

Physically, the Juki 6300 is large. 
Measuring 22.4 x 15.8 x 4.7" and 
weighing almost 31 pounds, this 
printer is going to need some elbow 
room. The carriage is wide enough 
to accommodate paper up to 16" in 
width, making it ideal for most bus- 
iness forms. The paper feed is by 
friction only. A tractor would be use- 
ful, but 1 did not note any substan- 
tial paper slippage. 

The 215-page manual includes vir- 
tually everything you need to know 
about the printer, unless, that is, you 
are a Commodore user. Operating in- 
structions are provided for virtually 
all popular computers but Commo- 
dore's. Hopefully, this omission will 
be corrected soon. 

As stated earlier, this is a profes- 
sional printer, and it has a profession- 



The Juki 6300 
daisy wheel 
printer offers 
auto-justifica- 
tion, numerous 
printing effects, 
and 40 cps 
speed. 
READER 
SERVICE 
NO. 238 
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al price: $995. While this is inexpen- 
sive for a printer of its type (intended 
for small office use), it's a little steep 
for the average user. I would not rec- 
ommend purchasing a 6300 to print 
an occasional letter, but if your in- 
terest is serious word processing or 
small business use, then it is an ex- 
cellent choice. 

Juki Office Machine Corporation, 
299 Market Street, Saddle Brook, NJ 
07662 (phone; 201-368-3666). 

—David Barron 
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21st-century sequel to Blue Max. 
READER SERVICE NO. 239 



BLUE MAX 2001 

Synapse Software 
Commodore 64 
Disk; $29.95 

Bob Polin's Blue Max parlayed its 
brand of scrolling action combat into 
a slew of awards last year. Now the 
same author leaps from biplanes to 
futuristic hovercraft in this exciting 
sequel . 

Blue Max 2001 puts the computer- 
ist into the flight suit of Max Chats- 



worth IX, a remote descendant of the 
heroic aviator of Blue Max fame. The 
implacable FURXX Empire has ex- 
tended its tentacles to Earthbase 
Gamma IV. The game scenario be- 
gins just after the FURXX have con- 
quered the planet and drained the life- 
force of the survivors to lengthen the 
lifespans of imperial bigwigs. 

If the FURXX aren't stopped, their 
attack will spread to other colonies 
and eventually engulf Earth itself 
The player must use the joystick to 
guide a single hovercraft in a desper- 
ate attack against the alien invaders. 

The flying ship is equipped with 
two super weapons capable of 
breaching the FURXX defense sys- 
tem. The gravonic penetrator, fired 
by pressing the action button while 
pointing the stick in the desired car- 
dinal direction, can strafe ground in- 
stallations or knock aircraft out of the 
sky. The hovercraft also carries 40 
gravonic annihilator bombs which it 
can drop on buildings, bridges, and 
vehicles. 

Two special targets merit the high- 
est priority. The diamond-shaped 
Shield Enhancer increases the hover- 
craft's defensive capabilities. The Ter- 
rain Sequencer, a disk with a rotat- 
ing core, allows the lone attacker to 
advance to the next alien hoverfield . 

Once the hovercraft takes off from 
its field, the gamer pushes the stick 
up and to the left to start the terrain 
scrolling diagonally down the screen. 
The scrolling can be stopped by mov- 
ing the stick down and to the right. 

AHOY! 63 



Slik Load 



*29.95 

silk Load is a Kartridge for the C-64. 

Slik Load is the most reliable, effective and thought out Kartridge of it's kind. 

The options include: 



• 6 timM faatar load 

• Eliminatet driva rattia whan aiTora 
ara ancountarad. 

a 0(d and un-naw 
Will raatore • batic program 



a Status kay will givo you information on 
davica numbar, bytaa fraa and statu* of ttia 
driva. 

a Silk Load it alto fully compatibia with tha 
1 641 Super Rom 





$19.95 



DMS^Errors 20. 21 < iZ. 33. 27 & 2ft 

Formftt Single TrickB 

R*«d D»ftj( Error* 
^ Track Riad r -raatf ind Hilact 'A track 

'6 Track Form titer- Formal a diftk with 'A 

tracks. This is where the neAt protection 

schemes sre coming Irom 

Drive Mon-Oisk Onva asaembler/diS' 

assembler For your tS41 

The Doc-Disk Doctor that reads code 

under errors. 

Ayrtc HwiEtr-Place « sync mark on my 

track out to 41 Also uaed lor protection 



Sync Reader-Check (or Sync bits on any 

track out to 41. 

Change Drive No.-Changes drive 

number (7-30) 

Dlak Logger-FindB starting track sector: 

Stan and end addresses. 

Dl«k Match-Compare any two diskettes. 

Byte fof byle 

New Wedge- Easier (o use 005 wedge 

ID Check-Check lO's on any track 

Unecretch-Resiore s scratched die 

View-8AM-Visual display of tha Iras and 

used sectors on a diskette 



Read/Wrlla Tea1-l^l performance teat 
Repair a Track-Repatr a track wuh 
checksum errors Reads coda under 
errors end restores track 
Faal Format-Formal a disk m |u*t 10 
aeconds (with verifyl). 



This is the only utility 
of its kind. It even has 
a 3 min. copy on it. 



WAR GAMES 
AUTODIALER 




1-Auto 01*1 will auiomaiically dial a sat o( numbers you choose. 
2-Revl«w Numbvra will review numbers (hat were answered by a computer. 
3-Save Numb«rs will save r^umbefs where a computer answafed. 
4-H*i4capy ol Numban wW pnnl oul list of numbers where a computer answered. 
5-LOAD Numberi will load «i numbers to continue where il left off. 
6~Cont<nu* will pick up dialing where il was interrupted. 



>29.9S 
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•HflNDBDDH 



3rcl 

Edition 



THIRD EOlTtON! NOW AVAILABLE! 
It you're tirad of being harassed by protected toftware and too many copv 
pfograma. tfien this is the book tor you! This 224 page manual covers the 
gambit troiri legalities to protection methods to step-by-step back up pro- 
cedures. Now you can learn both how to protect end unprotect software! 
The techniques covered include copying cartridges to tape or disk, tape pro- 
tection, and disk protection. Disk protection covers error no s 20. 21 , 22. 23, 
27 and 29 p4ua single track formatting, header modification, header swapp- 
ing, half track reading and writing, reading and writing modified bit denstties. 
fonnatting illegal tracks/sectors, sync whting and more! The Third edition ex- 
plelne, teils how to detect and how to iwrtic them with included software. 
Eleven useful uliiities and many protection listings! Our disk analysis programs 
reveal the protection methods used on your originals. A diskette with all soft- 
ware is available for a minimum extra charge. This may not be the only Ixiok 
your should have for the 0-64, but it is certainly tha one book you should 
not be withouti 



C64 Book only $19.95 US 

Book & Disk of all programs $39.95 US 

Vic 20 book . Cart. & Tapes only $9.95 US 

THIS MANUAL DOES NOT CONDONE PIRACY 
•SHIPPING: $2.00 



KARTRIDGE KRACKER 

NOW you can own this unique and powerfui tool 
which wiil allow you to dump the contents of 8K 
and 16K cartridges onto disk! But what's really 
great is that you can also RUN the cartridges pro- 
grams without plugging in the cartridge! the 
KRACKER gets YOU INSIDE the cartridge! Put 
all your favorites on disk and get rid of the clut- 
ter. This package provides your with the software 
and hardware needed to get started. Program on 
disk included. (Some cartridges require use of ex- 
ternal RAM not included) 




$44.95 



TOP SECRET STUFF 

All C128 Compatible 



Split Screens (Horizontally) 
Smooth Scrolling 
Save flam From Under Roms 
No Drive Rattle On Errors 
Triple Drive Head Speed 
Autoboot Maker 
Koala Screen DUmp 
Display GCH 
Fast Disk Eraser 



Protect Scheme For Your Disks 

Write Protect Disk 

Unwrite Protect Disk 

Wini D.O.S. Wedge 

Fast Disknnatcher 

Data Statement Maker 

Unnew 

3 Minute Copy 

D.M.S. 



If you have TSS^I, You'll 
Like This One! All on one disk 



M9 
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Bulletin Board 



S«r up indofitftit your own tmlflin boird with ong 
or two diik dnvas. This on« has all tha taatur^ ants 
you can cuitomiza it 9aaily youtsatt. 

1-RUN MEGASOFT-BBS 8-READ SYSOP MESSAGES 

2CB6ATe IVieCA FILES 9-WRn-E OPENING MESSAGE 

3A00 TO SYSOPS CORNER Ip.READ LOG 



4.NEWSYS0P'S CORNER 
S-READ MESSAGES 

6 -SCRATCH MESSAGE 
7-CYCLE MESSAGES 



«59.95 ggg 

• Leveled Access 

• Private Message Base 

• Up to 300 Passw^ords 



1 1 CYCLE LOG 
t2.HEAD DOWNLOAD FILE 
13-SCHATCH DOWNLOAD FILE 
14-ADD TO OTHER SYSTEMS 
ISCREATE OTHER SYSTEMS 




Expert Mode 

Open Chalk Board for 

Highest Level Access 



Encios* Casr^iars Cii«c^. Money Order O' Persdnsi 
CriBck AiiDw 14 day% for dsiivefy 3 io 7 day? tor 
phone orders Canada oroars mu$i b« m U S 
dollars VIS* - I^ASTEFt CARD -COO 



Programs lor C-64 



J2 00 S « H on all orders 



MegaSoft 



Limited 



Sortwart SutmiiuJona Invited. 



P O Box 1080, Battle Ground, Washington 98604 

Phone (206) 687-5116 • BBS 687-5205 Ane. Hours ComDute- lo Compuler 
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D-Compiler '59.95 



The first D-Compiler to give you back your source code 
after your program has been compiled with 'Blitz. 

*B\\lz IB * Iradvmflrh of SIcylfl* Eloctnc Work» 



1541 Super ROM 



«39.95 



• Fast Save Load Verify 

• Fast Scratch and Validate 

• 10 Second Format with Verify 

• Wo more Drive Head rattling 
during Format or Error Reading 



also Save with Replace is 
Improved 

Two times faster, Eight times faster 

when used with Turbo 64 which is included 



• 1541 Super ROM is 100% Compatible • Easily installed in Minutes 




3:>> 



APALLO COPIES IT ALL 



APALLO Does It All. This program is the latest generation of 
copy programs. It will do everything the $39.00 and $49.00 pro- 
grams will do and more. It Copies ALL drive errors, bad tracks 
and sectors, non-standard format, bad syncs, and half tracks. 
We feel this is the best program of its kind available... 




$29.95 



MSD Sure Copy 

At last a complete utility package for the MSD Dual Drive. This 
is the first MSD utility program that does it all. The main 



menu options include: 



Copy Protected Disk 
Copy Files 
Format a Disk 
Change Disk Name 
Quit 



Copy Unprotected Disk 
Scratch a File 
Rename a File 
View Directory 



$39^5 



Sura Copy will put all errors automatically on disk: 20, 21, 22, 23, 27 and 29's. 



D-CODER 



• Transfates any machine language program into easy- 
to-read English descrlptians with complete explana- 
tions of each command! 

• Mal<es complete notatiorts of all Important memory 
locations accessed by the program! (SID, VIC. MOS. 
KERNAL. etc.) 

• Gives you three ways ol accessing programs: 

1) Will r«ad and lltt -programi from DISK 

2) Will read and Hit programi from MEMORYI 

3) DIrtet uiar Input (from magazines, etc.) 

> Can be used to locate and examine any machine 
language program's protection routinesl 

• Cao be used to easily break apart machine la;)guage 
programs lor study and examination! 

• Printer option for complete hard copy listings! " 

You no longar 
ntd to b« an I _ ^ 
EOOHEAD to i tJ '-' 
raid Machina 
Language. 



$1995 





N-CODER M9.95 

the machine 
language manipulator... 

The perf«ct companion 
program to 0-CODERI 

Allows you to easily make chianges in ma- 
chine language programs... right on the disk! 

• Rewrite ability allows code to be altered 
and ttien rewritten directly to the disk! 

• Features sector-by-sector scrolling 
assembly language display of machine 
language programs! 

• Notation of ASCII text equibalents for easy 
spotting of enrbedded text strings! 

• Handy reference display of all assembly 
language commands and their ML 
numerical equivalents! 

• Byte splitter for easy splitting of decimal 
addresses into tow byte-high byte format! 



Super Loader 

Super Loader is a Kartridge that plugs into 
your expansion port, that allows the 
computor, on power up Start thedisk drive 
and load the first preselected program on 
the disk. 



• Change colors 

• Load wedge 

• Works with more drive -J.^^*"'.^ V^ 

• Takes up no memory ^ jMjl - 

• Reset switch included 



7/ 
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Only 



^29 



95 




This Disk has over 100 routines, 
some of them are routines for 
protection, smooth scrooling, modem 
routines, and sound and color 



routines. They can easily be 
incorporated into all of your programs. 
It is also fully documented 



M9.95 
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s 


No. 


4_'iHnp:tii> 


"• 


42 


APCAI) 


1 


II 


Abaci» 


i 


C-4 


Access Software 


1 


68 


AlpluKum. Inc. 


1 


2J 


ApnifHK Tfchnutog} 


^^ 


49 


Bullerin Included 




51 


BudLTirs IncludL-d 




5 


Rig B)ta 




15 


Budd} Pruducts 


• 


30 


CHF Company 


^jm 


80 


CVC Online 


249 


C-2 


Cardco, Inc. 


247 


27 


Carter Publishing, Int. 


290 


14 


CompuServs 


24« 


35 


CompuSoR PublEihtnR 


J 


41 


Compter Cfnien. of America 


^ 


6 


( itniputiT Warehimsc 




67 


The tjinnn Corporation ' 




24 


Knlrepo 




C-3 


KpVN 


'_ 


43 


riiipp) House 


— 1 


75 


Full Cirele Softvmre, Inc. 


i 


16 


Howard W. Sams & Co.. Inc. 


1 


55 


litnovHiiyc Or^anliers 


^ 


V 


Inlegrutcd-Soflwarc S)iilcni.s 


L 


22 


Jasun-Ranhefm 


256 


63 


Juki Industries of America, Inc. 


238 


34 


Juki Industries of America, Inc. 


m 


9 


Juki Industries oT America, Inc. 


m 


12 


Kidbil Software 


m 


«4^ 


McKaSoft Limited 


m 


25 


Microcomwribe 




56 


Micrdog Corp. 


L 


10 


MicroProse Software 


7» 


21 


Mtcrmaliun 


255 


26 


MiCT«-W. DistributinR, Inc. 


281 


7 


MicroAV. Distributing, Inc. 


291 


4 


Ohio Computer .Services 


282 


32 


Parwc Research 


250 


20 


Phoenix Red .Software 


270 


t6 


Profcs."M>r Junes 


288 


58^ 


Protecto Knterprios 


241-244 


W 


Radix MarketinK 


280 


46 


Sage Software 


277 


9 


Sakala CS.A. Corporation 


293 


15 


Software Design, Inc. 


285 


12 


Software Link 


287 


17 


Slanihine 




8 


sybLOGIC Corporallon 


br 


63 


Synapse Software 


239 


71 


T 4 D Subscription Software 


253 


62 


TPIIG \ta(!azine 


29S 


69 


Teknika KJectronics Corp. 


266 


13 


Timeworks 


267 


57 


Tussey Computer Products 


27S 


70 


Ultra Byte 




71 


VMC Software S 




35 


^Vedgwnod Rental 




45 


Xetec. Int. 


286 



The 



publisher cunnot assume responsjbili 
for ernirs in (he ahtne listing. 
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Rebels have established secret 
strongholds on the surface of Gamma 
IV. When the ship lands at a field. 
it can take on fuel, resupply its bombs 
racks, and repair damage caused by 
alien aircraft and flak guns. 

The joystick steers the ship in any 
desired direction and changes alti- 
tude. Though the hovercraft can drop 
bombs from any height, it must get 
fairly close to the ground before its 
gravonic penetrator can wreak havoc. 

The control panel located directly 
below the main display monitors the 
hovercraft status. This includes alti- 
tude, fuel supply, accumulated dam- 
age to specific ship systems, number 
of bombs remaining, and current 
score. Changes in the color of the 
playfield border provide an addition- 
al visual indicator of the current al- 
titude range. For example, a gray bor- 
der informs the pilot that the hover- 
craft is at the proper height to strafe 
the ground. 

Better documentation would have 
improved this otherwise excellent 
program. In particular, labeled illus- 
trations of each of the major play-fea- 
tures would have greatly speeded up 
the learning process. 

Blue Max 2001 doesn't introduce 
any startling design concepts, but it 
fulfills the essential requirements of 
a good sequel. It extends and refines 
the elements which made the original 
game popular, while it introduces 
enough new challenges to generate 
fresh excitement. 

Synapse Software, 5221 Central 
Avenue, Richmond, CA 94804 
(phone: 415-527-7751). -Amie Katz 

PLUSWRITER PRINTER 

Alphacom, Inc. 
$399.00 

Priced at $399, the Alphacom 
Pluswriter is yet another addition to 
the vast array of low-cost letter qual- 
ity printers available today. 

Housed in a sleek black and grey 
plastic case, the Pluswriter interfac- 
es easily to the Commodore. Alpha- 
com uses an interesting method of in- 
terfacing: an intelligent interface car- 
tridge plugs into a slot on the back 
of the printer. The cartridge is dif- 
ferent for every computer, and pro- 
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vides the hardware/software link to 
make it function properly for your sit- 
uation. 1 experienced no problems 
listing programs or using word pro- 
cessors. In fact, the Pluswriter emu- 
lates the Diablo 630 printer, which 
makes it compatible with just about 
everything. 

When printing, the Pluswriter 
cruises at a moderate 18cps bidrec- 
tionally; painful for printing out your 
science fiction trilogy, but for most 
applications well within reason. The 
print quality is good, except for those 
occasions when characters will move 
slightly up, down, left, or right, and 
appear a bit disoriented. 1 didn't like 
the Courier 10 printwheel included 
with the printer so I purchased a 
more attractive daisy wheel. I was 
pleased to learn that either Qume or 
Diablo daisy wheels will work, and 
can be found most anywhere {I found 
mine at a local stationery store for 
$7,50). Ribbons are also easy to find, 
for the Pluswriter uses Diablo Hy- 
Type II. I also found these locally for 
$4.95. 

Since the Alphacom emulates the 
Diablo 630 many special effects are 
possible including boldface, shadow 
printing, subscripts, and superscripts. 
These all work well and are all easily 
accessible. 

The only major problem I had with 
the Pluswriter was the tendency of 
continuous tractor paper to move 
across the platen. This required con- 
stant realignment and was very an- 
noying. With single sheets I had no 
difficulties. 

The Alphacom Pluswriter is a 
competitive addition to the low priced 
daisy wheel printer market that 
should satisfy the needs of most home 
computer users. 

Alphacom, Inc., 2323 South Bas- 
com Avenue, Campbell, CA 95008 
(phone: 408-559-8000). 

—David Barron 

CALC NOW! 

Cardco, Inc. 
Commodore 64 
Disk; $39.95 

Computer industry pundits like to 
attribute the very existence of the per- 
sonal computer to a spreadsheet pro- 



An open letter to 

the readers of Ahoy Magazine 

Vincent Kurek 

President: The Erinon Corporation 



My purpose in writing is to ask 
you to join me in shaping llie 
future of the new and most unusual 
field in computer technology today: 
Artificial Intelligence. 

This incredible power and 
spectacular creative potential are 
available to you, for your computer 
right now, However, there is an 
alarming possibility that such 
amazing technology which you 
have e\'ery right to, may not be 
available lo you other that through 
this offer. 

This is unfortunate but somewhat 
understandable due to the way 
technology is created. You see. only 
the business oriented corporation 
can finance research. It therefore is 
in a position to dictate immediate 
research goals. These goals are 
increasing profits through more 
efficient production. While valid, 
they are merely creative and do 
absolutely nothing to foster 
exploration in new applications. The 
result: technology is never used to 
its fullest potential. But what's worst 
of all is that these competitve 
corporations have absolutely no 
desire to share technology with 
each other, let alone with you. So, 
they don't. As a result, the 
infinitesimal amount of technology 
that finally trickles down to you is: 

A, So expensive you are pro- 
hibited from procurring tt 

B. Shamefully inferior to the 
real thing 

remember... you can buy high-tech 
consumer goods, but never the 
technology that creates it. 

This same situation confronts you 
in the new Artificial Intelligence 
field, but with a difference: 
There is no true Artificial 
Intelligence for the home computer 
user! The few programs claiming to 
be Artificial Intelligence are really 
simulators. They are not the real 
thing. Possessing a mere token of 
the power and versatility, simulators 
are clearly not worth their 
expensive price. 

I have tried repeatedly to 
convince my colleagues that It is in 
their best interest to release genuine 
Artificial Intelligence to the general 
public. The refinement, modification 
and adaptation as individuals create 
new applications would improve 
Artificial Intelligence tremendously. 
This would benefit everyone in the 
long run. 



I have met with little success. 

Apparently it seems that immediate 
corporate profit is more important 
than sharing technology with the 
public. Therefore, the Ennon 
Corporation stands alone in offering 
superior Artificial Intelligence 
programming directly to the home 
computer enthusiast. 

Announcing AN-83: 
The "Thinking" Program 

Believe me when 1 say AN-8J ii 
the real thing. It is a true "thinking" 
program that receives an initial 
"knowledge base" from a data file 
read when AN-83 is started. Using 
inductive and deductive logical 
analysis, this amazing program 
deduces everything iVom that data 
and adds it to its memory. 
Conversing with you, AN-83 adds 
and combines with facts already 
known. It generates new 
conclusions not explicitly contained 
in its original knowledge base— just 
like your own thinking process! The 
result: it knows considerably more 
than the specific facts given to it, 

AN-83 can also think about 
anything. It is virtually unlimited in 
its application. Think of your 
possibilities. The potential is 
limitless. In the right hands, AN-83 
would revolutionize the adventure, 
strategy and other smart game- 
playing programs to say nothing of 
classic arcade games. On the other 
hand, AN-83 could be one of the 
most powerful business analysis 
available to the home computer. 



FREE SOFTWARE 



In addition, you will be receiving 
free , Eliza— the most amazing 
conversational A.I. program to date. 
Run this for your friends and jaws 
will drop with amazement. Eliza's 
responses are so human, it's 
uncanny. An entertaining program, 
Eliza will answer once and for all 
the question: What can your 
computer do? 

How to Learn 
Artificial Intelligence 

You can he creative. Experiment 
and modify to fit your personal use 
because AN-83 and Eliza both 
possess source code in basic, the 
most popular easy to use language 
for the micro. Their extensive, easy 
to understand commands walk you 
through the source code 



step by step. It's surprisingly simple. 
Even the beginner can understand 
the "How and Why of A, I." 
A Fantastic Savings 

The real profit to Ennon 
Corporation will be your 
participation in the future of 
Artificial Intelligence. Therefore, I 
am pleased to say notxjdy will miss 
this chance because they could not 
afford it. AN-83 is priced to cover 
just a fraction of its research and 
developmental costs. 

The "Thinking" Program AN-83 is 
just $21.57. What's more, the 
astounding Eliza is yours absolutely 
free . 

I guess its obvious that I want 
you to participate in the future of 
Artificial Intelligence, Forgive my 
excitement and enthusiasm but I 
just know you are going to be very 
happy and impressed that such 
things could be done with your 
computer. You just won't believe it. 
Please lake this opportunity now. 
Simply I'ill out your coupon below 
and mail today. Don't mis>, out. It's 
such a wonderful future of 
discovery and excitement that 
awaits you. 

With very best of wishes, 
Vincenl Kurek 



I — I Please send me the 

"Thinking" Program AN-83 
lor only $21.57. 
In addition, I will receive 
Absolutely FREE Eliza— the 
most impressive 
conversational Artificial 
Intelligence program to date. 

Available in disk only. 

For use with the Commodore 64. 

Name 



Address 

City _ 
State _ 



Zip Code 



THE ENNON CORPORATION 

1817 W. Call St., Suite B-8 

Tallahassee, PL 32304 

Canadian orders must be in U.S. dollars. 
We export lo other countries. 
Commodore is a registered trademark. 
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The Atphacom Pluswriter (see review on page 66) cruises at a moderate IScps. 

The printer emulates the Diablo 630, so many special effects are possible. 

READER SERVICE NO. 265 



gram. That first spreadsheet program 
was Visicalc, which through its sym- 
biotic relationship with the Apple in- 
troduced thousands of burned-out 
Pong players to the really useful as- 
pects of computing. 

Today, more spreadsheet programs 
exist than you can shake a ledger at. 
Regardless, the market is always on 
the lookout for a better, cheaper pro- 
gram. Depending on your exact 
needs, Calc Now! from Cardco may 
be exactly that. 

Cardco began its product line with 
hardware add-ons like its numeric 
keypad. More recently, it has ex- 
panded into software with programs 
like Wriie Now!, a wordprocessor 
with a mail mei^e feature, and Graph 
Now. Cardco's latest release, Calc 
Now!, is compatible with all three. 
For the $39.95 price, you get most 
of the features of spreadsheet pro- 
grams costing much more. 

Calc Now! is a single load program 
—no disk-swapping needed. Once it's 
loaded, Calc Now! runs much like 
other spreadsheets. For details on the 
basic operations of spreadsheet pro- 
grams, pull out your May 1984 issue 
of Ahoy! and reread Terry Silveria's 
comprehensive review and evalua- 
tions of ten competing products. To 
compare Calc Now! to those pro- 
grams, here's the information for 
Terry's chart of spreadsheet features; 

68 AHOY! 



Relative Copy 


Yes 


It Then Command 


Yes 


Row/Column Insert 


Yes (and row/column 
delete) 


Rejustify Celt 
Contents 


Yes (either left or 
right) 


Split Screen 


Yes (either vertical 
or horizontal, syn- 
chronized or 
unsynchronized 


Adjustable 
Column Width 


Yes (from 3 to 36) 


Logic Operators 


Yes (And, Or, Not) 


Fix Titles 


Yes (lock the top 
row(s) or the left 
column(s) or both in 
place) 


Graph 


Yes (print rows of 
asterisks to repre- 
sent values) 


Sort 


Yes (alphabetical or 
numerical on any 
column) 


Search 


No 


Link 


No 


Maximum Column 
Width 


36 


Maximum # 
Columns 


64 


Maximum # Cells 


1600 (with an 6- 
digit number in 
each 


Maximum # Rows 


254 


Price 


$39.95 



Calc Now! uses the top (status) 
lines of the screen to show you the 



cell number, type, justification, con- 
tents, and format. Available formats 
are dollar, floating point, integer, 
graph (*), logical (true/false), and set 
number of decimal places. The sta- 
tus lines also tell you whether recal- 
culation will occur automatically or 
must be triggered and how much 
memory is left for your data. After 
the program is loaded, 39K is avail- 
able. If you build spreadsheets that 
are larger than this, you may need to 
consider one of the other programs 
that can link spreadsheets by allow- 
ing you to reference one spreadsheet 
in another. 

Several functions are available in 
Calc Now! that work on ranges of 
cells. SUM will total the contents of 
a range of cells; AVERAGE will 
average them; MIN will find the 
smallest; MAX the largest; and 
COUNT will return the number of 
non-blank cells. Two other powerful 
and more unusual functions also 
work on ranges. GET will evaluate 
a formula, count down that number 
of cells, and return the value in the 
cell it finds. FIND will evaluate an 
expression, search through a range of 
cells until it finds a value which is 
lower, and return the value in the next 
ceil. Linked with the sort feature, 
FIND gives you a very sophisticated 
spreadsheet tool. 

Here are some one-liners on fea- 
tures I especially like. Sorting rows 
based on the contents of any column 
(or part of a column) is fast; only a 
couple of seconds even for a big 
spreadsheet. Existing cell formulas 
can be edited —you don't have to re- 
type a long formula which has an er- 
ror near the end. Whenever you need 
to reference another cell in a formu- 
la, you can, after pressing the Brit- 
ish pound sign key, f)oint (with the 
cursor) to the cell you want and au- 
tomatically enter its number, a nec- 
essary feature for multiscreen spread- 
sheets. You can command Calc Now! 
to move the cursor up, down, left, or 
right when you hit return -handy 
when you change from entering col- 
umns of numbers to entering rows. 

More? Okay. Instead of printing all 
or part of your spreadsheet, you can 
choose to print all of its formulas for 
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The Tekttika 
MJ'IO color 
monitor, like the 
1702, accepts 
separate lumi- 
nance and 
chrominance in- 
puts. Its chief 
weakness: an 
undersized speak- 
er thai does not 
reproduce sound 
very well. 
READER 
SERVICE 
NO. 266 




verification. (If you've ever made a 
mistake with pencil and paper, wait 
until you see what havoc you can cre- 
ate with a spreadsheet.) Individuat 
cells can be protected, a handy fea- 
ture for spreadsheets used infrequent- 
ly or by someone else. Without exit- 
ing from Calc Now! you can initial- 
ize a disk, get a directory, delete or 
rename files, and specify disk and 
printer device numbers. 

That's a lot of features, but is Calc 
Now! hard to use? No, if you're at all 
familiar with spreadsheets, it's a snap. 
Even if you're not, keyboard tem- 
plates describe the uses of function 
and other command keys. Forgetful? 
Hit the help key followed by any 
command key you are unsure of. In 
an onscreen window, a description of 
that key's function will appear. The 
program I reviewed had only an 11- 
page temporary manual, so I cannot 
say what the documentation will look 
like. But Cardco does provide tech- 
nical support by phone. 

My favorite, and final, help feature 
is something we all demand of our- 
selves in programs we write, but 
which is not available from spread- 
sheet programs. A non-printing com- 
ment or documentation can follow the 
contents of any cell; just start it with 
a semicolon. If you have ever tried 
to decipher one of your old spread- 
sheets, much less someone else's, 
you'll know how valuable this can be. 

Cardco, Inc., 300 S. Topeka, 
Wichita, KS 67202 (phone: 316- 
267-6525). -Richard Herring 



MJ-10 MONITOR 

Teknika Electronics Corporation 
$279.95 

When the carton containing the 
Teknika MJ-10 appeared on my desk 
one morning for review, I thought I 
would be taking a look at just another 
monitor. I was wrong. The MJ-10 
produces a surprisingly good picture, 
easily the equal of the Commodore 
1702's. This is partially due to the fact 
that the MJ-10, like the 1702, accepts 
separate luminance and chrominance 
inputs. This helps achieve a level of 
clarity and color rendition not possi- 
ble with monitors boasting only com- 
posite video inputs. 

On the front of the monitor are an 
exposed power switch, power light, 
and volume control. Hidden behind 
a flip-out panel are controls for hor- 
izontal position, vertical position, 
contrast, brightness, color, and tint. 
Other controls— vertical linearity, 
vertical size, horizontal hold, and in- 
put level — are on the back. 

My only complaint with the MJ-10 
has nothing to do with the video, but 
rather the audio. Its speaker is under- 
sized and does not reproduce sound 
very well. Additionally, a larger am- 
plifier and an earphone Jack would 
have been useful. 

All in all, the MJ-10 is an excel- 
lent choice in a monitor if the high- 
est possible picture quality is a must. 

Teknika Electronics Corporation, 
353 Route 46 West, Fairfield, NJ 
07006 (phone: 201-575-0380). 

—David Barron 



MUSICWARE 

SONG BUILDER 
SONG EDIWR 
SONG PRINTER 
SOUND MAKER 

Sequential Circuits 
Commodore 64 
Disk; $39.95 each 

I was immediately impressed with 
the MusicMate keyboard from Se- 
quential Circuits. Its 32 keys have 
nice action, and the lightweight and 
sturdy construction make it ideal for 
creating music on the C-64. 1 was less 
than overwhelmed, though, by the 
supplied driver software, the M970 
MusicMate Musicware. It's your basic 
meat-and-potatoes program, devoid 
of any gravy. While it does what it 
was designed to do— demonstrate the 
capabilities of the keyboard by allow- 
ing you to try several different 
sounds, store your creations in RAM, 
and play them back- no provisions 
are included for saving your songs to 
disk, recording individual voices, 
creating new sounds, editing, or 
printing out your compositions. 
Clearly, the MusicMate keyboard 
would be much more valuable to 
computer musicians if it had software 
that was commensurate with its own 
capabilities. 

To fill this need. Sequential has re- 
leased the MusicWare line. They've 
taken the modular approach, where- 
by dedicated software modules have 
specific functions, and you only buy 
the particular utilities you need when 
you need them. 

The MusicViire line consists of four 
additions to the software that comes 
with the keyboard: #97/ Song Build- 
er, §972 Song Editor, #973 Song 
Printer, and #974 Sound Maker. The 
module names provide you with a 
good description of the functions. 
Let's take a look at each individually, 
as well as interactively. 

#971 SONG BUILDER 

Song Builder is the music compo- 
sition module. It allows you to enter 
your melodies, one voice at a time, 
and record them on disk. You're giv- 
en a selection of stock sounds that 
simulate a wide variety of musical in- 
struments. A metronome feature 
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a Breakthrough in Value ! 

ULTRABYTE 

DISK DUPLICATORS 
with FREE BACKUP COPIES 



ULTRABYTE NOW OFFERS TWO OF THE BEST COPY 

PROGRAMS ON THE MARKET. ANO BOTH COME WITH 

FREE BACKUP COPIES. 



ULTRACOPY 



Jim Lagerkvist's sequel to the original ULTRACOPY 64 
owned by thousands of satlstled customers. 

Copies protected disks in 8 minutes on a single 1541 

Ooes not "hammer" the disk drive. Will not affect alignment 

Formats, copies and produces errors automatically in one step 

Features Normal Scan for reliable copies of most disks 

Includes Deep Scan with 38 track and half track capability 

Copies 99% of programs on the market 

Free backup copy - two disks for the price of one 

Technical support available by telephone 

Simple to use. Tone signals disk swaps 



ULTRABYTE DISK NiBBLER 



Uses proprietary revision of disk operating system [OOSj to make 
a bit By bit copy. This process, called nibbling, copies the format, 
data and errors, all at the same time. Errors are not recognized 
and do not hammer the drive. Built In fast load environment allows 
copies in 8 minutes with a single 1541 disk drive. 

• Easy to use. No separate analysis or error production 

• Choose 35.36.37 or 38 tracks to copy incl. half tracks 

• Makes up to 5 copies of each original — | UNIQUE FEATURE j 

• Backs up 9S% of all software 

• Free backup copy - two disks for the price of one 
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ULTRACOPY II and the NIBBLEfl irs Indepandint products by different luthors. Both 
are excellent and either should meet your needs. You may order Iwo disks ol one 
product for S 39.95 plus S4.00 shlpplns and obtain a single disk of the other for 
SZO.OO plus S3.00 sliipping. Sorry, free backup must be same as disk purchased. 



FOR 2 COPIES OF EITHER 
ULTRACOPY II OR THE DISK NIBBLER 



plus S4.00 shipping and handling. Maslercard, Visa, Check or M.O,. Foreign orders 
or COD add S2.00. Calif, add 6.5% |S 2.601 "lu tax, Addillonai tiackup copies are 
$20.00 plus $3.00 shipping 

ATTENTION: Owners of ULTRACOPY or the NtSBLEfl whose names are In our Hte 
may order a single copy of either product for S 20.00 plus S 3.00 shipping. 

Write or Call 24 Hour Order Line 

ULTRABYTE (818) 796-0576 
P.O. Box 789 La Canada, CA 91011 
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helps you keep time while recording 
your tracks. 

The program is menu-driven, and 
only eight keys on the C-64 are used 
for selection or advancing through the 
menu items. The MusicMate key- 
board is used exclusively for note en- 
try. The documentation booklet is 
written in a well-illustrated, easy to 
understand style. Additionally, help 
screens concisely explain how to ac- 
cess the program's functions. 

One of the most impressive aspects 
of Song Builder is its sequencing ca- 
pability, allowing you to create indi- 
vidual sections, or sequences, of mu- 
sic and treat them as individual enti- 
ties. After recording your sequences, 
you can link them in any desired or- 
der, or even change the key and tem- 
po of different sequences. This lets 
you create whole songs of any length 
quickly by treating individual song 
sections as sequences. Let's say that 
your song contains these components: 
verse 1. verse 2. chorus, verse 3, 
chorus, chorus. To create a complete 
song, you need only record one verse 
and one chorus, then assemble them 
in the right order, since the music for 
the verses and choruses is the same 
each time they recur. What would 
Beethoven have thought of such a 
work saver? He would have loved it, 
I'm sure! 

#972 SONG EDITOR 

The Song Editor module provides 
you with the editing capability to do 
minor touchups on your songs or ma- 
jor rewrites on given measures. The 
documentation explains how to access 
its many features, and the program 
contains multiple help screens. As 
with the other MusicWire modules. 
Song Editor is entirely menu driven 
and very easy to use. requiring only 
eight of the C-64's keys for imple- 
menting functions. Ail note entry is 
handled through the MusicMate key- 
board. 

Pdssibly the most outstanding fea- 
ture of Song Editor is that it automa- 
tically calculates the effects of your 
editing changes and compensates for 
them. If you alter the pitch or dura- 
tion value of any note in the compo- 
sition. Song Editor automatically 
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takes care of the rests! To change any 
note on the display, strike the correct 
note on the MusicMate keyboard and 
it will appear instantly on the staff. 
You can even change the time signa- 
tures or transpose the key with this 
program. 

Another big plus is the ability to 
step through your music one note at 
a time, or view your score one mea- 
sure at a time. The video display is 
in traditional grand-staff fomiat, with 
signatures, notes, and rests looking 
exactly as they should. 

Song Editor is a tremendously 
powerful music editing program that 
picks up where Builder leaves off and 
carries you further down the musi- 
cal path. 

#973 SONG PRINTER 

If you have need of printed musi- 
cal scores in standard notation, Song 
Printer will allow you to print out 
sheet music of your songs, and even 
give you the options of which voices 
to print. Consistent with the other 
products in the Musiciiiire line, it is 
menu-driven and easy to use. The 
program is accompanied by excellent 
documentation, and help screens are 
included. 

Song Printer will work with the 
Commodoiie 1525, 801, or other com- 
patible dot matrix printers suitably in- 
terfaced. Because the music symbols 
and graphics must be created, letter- 
quality or daisy wheel printers won't 
work. 

In addition to printing out excel- 
lent quality music scores, Song Print- 
er allows you to choose the melody 
line(s) to be printed. This is particu- 
larly useful for learning harmony 
parts in vocal arrangements, where- 
by the soprano, alto, and tenor may 
each have a score with their particu- 
lar parts on it. The piano accompan- 
ist, however, may utilize a score 
showing all three parts. This is a great 
print option to have, and Song Print- 
er is, to my knowledge, the only mu- 
sic printing program that allows this 
sort of flexibility. 

#974 SOUND MAKER 

Your C-64's SID chip is capable of 
creating some awesome sounds, and 



the Sound Maker module makes such 
sonic tailoring easy. The program 
disk contains twenty musical instru- 
ment sounds and sound effects which 
you may alter to your heart's content. 
Included are several help screens that 
explain the functions of the control 
settings; additionally, the documen- 
tation expands on this information. 

Sound Maker also provides you 
with a novel video display while crea- 
ting sounds. Unlike music synthesis 
programs which rely on bar or nu- 
meric setting displays, you get a sim- 
ulated analog control display that de- 
picts knobs for adjusting sound quali- 
ties. This feamre really imparts the 
feel of a traditional electronic music 
synthesizer to the program. Another 
nice wrinkle is the ability to select 
different octaves for the sound, in 
addition to "tweaking" the bass, tre- 
ble, or a combination of the two. 

You can try out your sounds as you 
create them by using the MusicMate 
keyboard with the program. And 
when you've created one you particu- 
larly like, you can store it on diskette 
for use with other programs in the 
MusicWbre line. 

SUMMARY 

All the MusicWire modules reflect 
a lot of thought on the part of their 
designers. They're very easy to use; 
even for the computer music novice, 
they perform flawlessly, and they are 
all interactively compatible. The 
modular software approach allows 
you -to purchase specific-capability 
features as your needs dictate, and 
combining these MusidMire modules 
produces a full-featured music pack- 
age that's hard to beat. 

Sequential Circuits, Inc., 3051 
North First Street, San Jose, CA 
95134 (phone: 408-946-5240). 

—Tom Benford 

PROMAL 

Systems Management Associates 
Commodore 64 
Disk; $49.95 

BASIC, stand aside. A new gener- 
ation of computer languages has ar- 
rived and is taking over. And, of the 
structured languages, PROMAL is 
one of the very best. 
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Month' gets you a tape or disk full o) 10 
quality Commodore 64 programs deliv- 
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The documentation included will help you 
run great utilities like 'Word Processor,' 
and 'Budget Analyzer,' or enjoy great 
games like 'Frogjump' and 'Caterpillar 
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PROMAL makes a compromise 
between the loose syntax of BASIC 
and the intense structure of LISP- 
type languages. PROMAL is proce- 
dure-oriented, which means that pro- 
grams are written in little modules, 
each of which performs a specific 
task. All of the small units of code 
are then called by a main procedure 
(program), in a structure which re- 
sembles BASIC -GOSUB-RETURJST- 
called subroutines. 

There are two types of modules in 
PROMAL: procedures and ftinctions. 
When called, functions return a val- 
ue (data or a Boolean). Procedures 
are series of program commands, 
which return no value. Within a mod- 
ule, local variables may be defined. 
In fact, modules may even be defined 
recursively with up to 256 levels of 
nesting. All modules may be sent ar- 
guments (data) on which to perform 
operations. The data structures in 
PROMAL are similar to those in 
BASIC, with the exception of Boo- 
lean data. 

Boolean data are the values TRUE 
and FALSE which may be assigned 
to a variable or be returned as the 
result of the evaluation of an ex- 
pression. One example of an expres- 
sion which returns a Boolean when 
evaluated is the CMPSTR function. 
CMPSTR compares two strings in 
relationship to an operator 
(<,<=,<>,=,>=,>). If the re- 
lationship is true (e.g. A<B), the 
CMPSTR returns TRUE, else 
FALSE. 

PROMAL also has a very differ- 
ent way of treating command words. 
All programs, including the main 
program and all modules, are given 
names and told what arguments are 
needed for proper operation when 
initially defined. To execute a pro- 
gram, only the use of the name and 
inclusion of argument values are nec- 
essary. In a way, definition of a mod- 
ule is the same as creating a new 
command. It is even possible to cre- 
ate a whole range of sound and col- 
or commands, avoiding the annoy- 
ance of POKEing all those values into 
memory. 

However, in terms of syntax of in- 
dividual statements, PROMAL and 



BASIC vary by very little. The basic 
assignment primative is the = oper- 
ator (a primitive is an element of a 
computer language which is origin- 
ally written in machine language, as 
opposed to modules— written in 
PROMAL). The conditional con- 
structs are IF-ELSE, IF-THEN, and 
CHOOSE. The looping constructs 
are WHILE, REPEAT-UNTIL, and 
FOR. 

The most interesting and useftil 
new primative is the ESCAPE- 
REFUGE construct. When an error 
OCCUR in a module called by another 
module, it is often desirable to return 
to the original module and restore all 
variables to their original state. Us- 
ing REFUGE, it is possible to define 
three places and states to which the 
program may return and "recover" 
from a disaster. Each REFUGE is 
given a number from one to three. 
When an ESCAPE command is exe- 
cuted, the refuge number is specified 
and all state variables are restored at 
the location corresponding to the ap- 
propriate refuge. 

PROMAL statements, unlike those 
in BASIC, have no line numbers, may 
only occupy one line, and must have 
spaces between keywords and vari- 
ables. However, these small incon- 
veniences are more than compensated 
for by the fact that PROMAL is a 
compiled language. There arc two 



fundamental types of languages, in- 
terpreted and compiled. BASIC is in- 
terpreted. Interpreted languages are 
evaluated sequentially, as individual 
lines are executed. This is under- 
standably slow. Compiled languages 
are evaluated into machine language 
in one large translation effort and 
stored in machine language form in 
an object file, on disk. Then, when 
the object file is executed, it is as if 
the program was originally written in 
machine language. However, the us- 
ual problem which arises with com- 
piled languages is that the original 
program must be written into a docu- 
ment file, through a separate word 
processing program. PROMAL ful- 
ly supports creation of document 
source files by supplying a built-in 
editor An EXECUTIVE (operating 
system) is also included, completing 
the PROMAL environment. 

As an introduction to structured 
programming languages and as an al- 
ternative to BASIC, PROMAL is well 
worth the time needed to learn it and 
the $49.95 to purchase it. Systems 
Management Associates deserves a 
round of applause for greatly extend- 
ing the computing powers of the 
Commodore 64, 

Systems Management Associates, 
3700 Computer Drive, P.O. Box 
20025, Raleigh, NC 27619 (phone: 
919-787-7703). -Rachel Schleimer 
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On page 107 of our April '85 issue, we listed incorrect last byte 
information for the BASIC Trace program. The correct last byte 
is C1FA. To enter it, load your version of Trace (,8,1), then load 
and run Flankspeed. Enter first and (correct) last byte, hit f5, 
and continue from address C1F8. After typing in the last line, 
save the program. 



CAUJNG ALL STARVING COMPUTER ARTISTS...! 

If you're in need of a square meal, we can'1 fielp you. But it it's publicity you're 
starved for, we've got just the ticket. In future issues, Ahoy! will feature a gallery 
of the finest computer graphics our readers can generate. 

We invite you to send your best work on disk, accompanied by a stamped and 
self-addressed mailer, to Morton Kevelson, P.O. Box 260, Homecrest Station, 
Brooklyn, NY 11229. Indicate the drawing package that was used to create the 
image. If you employed a bit map of your own design, indicate the appropriate 
file parameters, i.e., hi-res or multicolor, location of bit map, screen and color data. 

Send along your latest masterpiece today. Who knows who might be reading? 
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SCREEN DUMPING 

ON 

THE 

COMMODORE 64 





ooner or later every pro- 
granuner with an interest in 
computer graphics will tap 
the versatility of bit mapped 
graphics. The program described 
here will serve not only as a primer 
on the creation of screen bit graph- 
ics, but will also allow reproduction 
of the screen image on your printer. 
In addition, if you study the program 
(see page 107) carefully you will leam 
something about memory manage- 
ment on the Commodore 64, as well 
as experiencing the dramatic effect of 
machine language on the spjeed of ex- 
ecution of the program. 

The program requires an 8-pin dot 
matrix printer with bit graphics ca- 
pability. It was written for use on ei- 
ther a Gemini 10 or lOX, using a 
standard Centronics serial to paral- 
lel interface; use with other 8-bit 
graphics printers will require some 
modification. 

SCREEN BIT GRAPHICS 

First, let's examine how bit graph- 
ics are generated on the monitor 
screen. Each standard screen char- 
acter comprises an 8 dot by 8 dot {64 
pixel) array. If we multiply this by 40 
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characters per row and 25 rows, we 
note there are 64,000 total pixels (320 
across by 200 down) , each of which 
can be separately activated to form 
the screen image. Because each pixel 
is turned on or off by a 1 or (a sin- 
gle bit) in the appropriate character 
memory location, the most direct ap- 
proach is to manipulate 8 pixels at a 
time as one byte of memory. 

The basic idea behind creation of 
a screen image is depicted in Figure 



1 (see page 74). By examining the 
"zeroth" l^te of character memory 
(hereafter referred to as the bit map), 
we see that pixel number 1 is con- 
trolled by bit 7, pixel 2 by bit 6, etc. 
Thus, for any of the possible num- 
bers from to 255 which may be 
stored in a byte, we generate a dif- 
ferent pattern of activated pixels. The 
entire screen will require 8000 bytes, 
arranged as shown in Figure 2 (see 
page 74). 

Let's examine version I of the pro- 
gram through line 180. In order to al- 
low for later expansion of the BASIC 
program without overwriting screen 
memory, you should carry out the 
POKEs described in line 1. This 
moves the beginning of the BASIC 
program to memory location 16384 
($4000). Next (line 20) we select an 
8K block of memory beginning at lo- 
cation 8192 ($2000) for the bit map. 
The POKE tells the VIC-II chip 
where to find the bit map and screen 
memory. Line 25 activates the screen 
bit mode. Line 30 clears the 8000 
bytes of the bit map, a process that 
takes over a minute in BASIC. As we 
will see later, it is nearly instantan- 
eous in assembly language. Line 40 
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"Zeroth" Byte 
of Bit Map 

bit # 7 6 5 4 3 2 1 
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= 1 



1 1 1 1 = 85 



Image In First 8 
Pixels of Screen 

oooooooo 
ooooooo# 

o#o#o#o# 



1 


1 


1 


1 


1 


1 


1 


1 



= 255 



Figure 1 

The correspondence between the bit map and its screen image. O and 
^ represent deactivated and activated pixels, respectively. The bit im- 
age to the right results from the four different values stored in the corre- 
sponding single byte on the left. 



stores in screen memory what colors 
will be used for activated and deac- 
tivated pixels. The upper 4 bits of 
each byte control the color of acti- 
vated pixels in the corresponding 
character, the lower 4 bits control the 
color of the deactivated pixel (0 = 
black, 1 = white, 2 = red, etc.). 
Thus, a 1 (00000001) results in a 
white background and black dots. 



Changing the 1 to 16 (00010000) pro- 
duces the reverse. Lines 100-180 ac- 
tually create the screen bit map. As 
an example I have chosen an expo- 
nentially damped cosine wave. Re- 
calling that our screen image is 320 
pixels wide and 200 pixels high, we 
generate a set of X , Y points which 
describe the function in lines 1(X) and 
105. (Y = 0, X = corresponds to 
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Figure 2 

The arrangement of bit map memory. 



the upper-left-most pixel.) Lines 150 
through 165 determine which byte of 
the bit map (Figure 2) will contain 
the data for each point, while line 170 
determines which bit of the byte 
should be activated. For example, 
consider the point X = 6, Y = 8 
(shaded pixel in Figure 2). This cor- 
responds to LINE of CHARAC- 
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Figure 3 

The correspondence of printer bit 
map to printed image. Q) and ^ 
represent blanks and printed dots, re- 
spectively. (This is the order for the 
Gemini and Epson series of printers; 
the C-Itoh printers reverse the bit 
order.) 



74 AHOY! 



byte #012 



319 



320 



639 



7680 



7999 



Figure 4 

The arrangement of bit map memory 
for the printer. 

TER in ROW 1. Since there are 320 
bytes per row (see Figure 2), and 8 
bytes per character, the location of the 
appropriate byte is 8192 + 1*320 + 
0*8 + - 8512. Line 170 deter- 
mines that bit 1 (seven over firom the 
left; see Figure 1) will receive the T. 
Line 175 makes the appropriate 
POKE, and the point appears on the 
screen. Line 180 sends us back to cal- 
culate the next point, and this con- 
tinues until the X domain has been 
exhausted. 

BIT GRAPHICS ON 
YOUR PRINTER 

Your Gemini lOX (with interface 
in transparent mode) can be used to 
create printed pictures in a manner 
quite analogous to screen bit graph- 
ics. The main difference is in the way 
the bit map is accessed by the print- 
er. The printer prints one row at a 
time with the height of each row de- 
termined by the number of pins in the 
print head. An 8-pin print head can 
print any combination of zero to 8 
dots (vertically aligned), as shown in 
Figure 3. Comparison of this with 
Figure 1 shows that the bit map for 



a printer must be arranged different- 
ly (Figure 4) than the screen bit map 
(Figure 2). If you are doing printed 
bit graphics directly, you can plan 
your memory setup to correspond to 
Figure 4. The problem we have, how- 
ever, is to take a screen image stored 
as in Figure 2, and make it accessi- 
ble, bit by bit, as shown in Figure 4. 
Thus, to create the "zeroth" printer 
byte, we need the 7th bit of each of 



the first 8 ir^es of the screen bit map, 
each multiplied by the appropriate 
power of 2. Printer byte 1 comes 
from the 6th bit of each of the first 
8 bytes of the bit map, and so on. 
Now let's look at the rest of ver- 
sion 1. Line 190 starts the printing se- 
quence when you depress the fl key 
on the Commodore keyboard. Lines 
205 and 210 activate the printer and 
set the linefeed length to 16/144". 
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Since November 1984, Mr. Nibble has 
successfully copied heavily protected 
diskettes for grateful C-64 owners! 
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Lines 215 and 220 draw a horizontal 
border, indented one inch. The ac- 
tual printing takes place in a loop of 
instructions 225-270. For each printed 
row (8 dots high) the high resolution 
bit mode is activated (225), then a 
one inch margin is created, marked 
with a - I " [CHR$(245) in 230]. 
Next, in a series of nested loops (lines 
235-265), an entire row is assembled 
and printed byte by byte from the 
screen bit map. To discover how this 
section works, I recommend setting 
up a sample "character" (8 horizon- 
tally stacked bytes of the screen bit 
map) and carry through the process 
by hand to create the corresponding 
8 sequential vertical bytes of the 
printer bit map. Note also that each 
byte is printed twice (line 255) to im- 
prove clarity. At the end of the row 
another " ! " is printed (line 265) 
and we return to assemble the next 
row. After the 25th row (L = 24) we 
draw another indented horizontal line 
(line 275, 280), and finally close up 
shop. 

Now that you understand how it 
works, save it and run it. Don't for- 
get the preliminary POKEs! Right 
before your eyes you will see the bit 
map zeroed (about 70 seconds), the 
field turned white (all pixels are de- 
activated, remember?), and black 
dots describing the function begin- 
ning to appear. After the screen has 
filled (about 2 minutes), press fl. 
Now the wait begins, because each 
printed line requires over 2 minutes 
to be assembled, making the entire 
plot an hour-long process! The final 



printed result is shown in Figure 5, 

A LITTLE HELP FROM 
ASSEMBLY LANGUAGE 

It would certain be preferable to 
have the image printed in a matter of 
seconds rather than hours. Fortunate- 
ly, this can be readily accomplished 
using machine language for the time- 
consuming loops (lines 230 through 
265) as well as the task of clearing 
the bit map (line 30) and setting col- 
ors (line 40). Using the technique of 
appending machine code at the end 
of our BASIC program, we now gen- 
erate version II of the program as 
follows: 

1) delete lines 20-40, and 225-265 
from version I 

2) add lines 5, 30, 195, 200, 225, 
230 and 265 of version II 

3) by PEEKing in 45 (40) and 46 
(67), we note the location of the end 
of the BASIC program is at 17192. 
Now, POKE 45, 250 to extend the 
memory allocation by 210 bytes, 
more than enough to accommodate 
the machine code. 

4) add the following instruction: 

10 FORI=0 TO 206:INPUTB%:P 
0KES1+I,B%: NEXT: STOP 

5) run the program, and enter the 
207 bytes of machine code, one by 
one, as listed at the end of version 
II. Do it slowly and carefully!* 

6) delete line 10 

Now save version II, and run it. 
Notice anything different? First, the 
bit map is cleared and the screen 
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Figure 5 
The final printed output from both versions of the program. 



turns white instantly. But the big 
change comes when you hit fl to print 
the screen image. Now each line is 
assembled almost as fast as the print- 
er can print it. The entire bit map is 
assembled and printed in one min- 
ute (see Figure 5)! So, you now have 
the capability to create whatever type 
of bit map you desire on the screen 
by modifying the portion of the pro- 
gram between lines 100 and 150. And 
then you can print the screen image 
as hard copy. (For another applica- 
tion of this program, see the follow- 
up article next month.) 

'Should you ever want to print the ma- 
chine code at (he end of your program, 
use the following sequence: 

7 0PEN4,4.2:CMD4:J=0 

9 FORI=0 TO 206: PRINT PEEK 

(S1+I);:J=J+1 

II IF J > 15 THEN PRINT CH 

R$(10);:J=0 

13 NEXT : PRINT#4 , : CL0SE4 : ST 

OP 

A WORD ABOUT THE 
MACHINE CODE 

If you're interested in how the ma- 
chine code does its job, disassem- 
bling the program and studying the 
assembly language is recommended. 
The first 31 lines accomplish the 
clearing of the bit map and setting 
screen color. Note that locations 251 
($FB) and 252 (SFC) are used as zero 
page indirect addresses to the bit 
map. 

The assembling of lines for the 
printer is more complicated, and be- 
gins in tine 32. Again locations 251 
and 252 are used as indirect point- 
ers for the section of memory being 
assembled (see line 195 in version II). 
Also, a table of powers of 2 is stored 
in 2048-2055 ($0800-50807); see line 
200 of version II. A step-by-step an- 
alysis of this program, though beyond 
the scope of this paper, would show 
that it accomplishes all the same 
things as lines 230-265 in the origin- 
al version, but the machine code ex- 
ecutes over 100 times faster! For 
those starting their foray into machine 
language programming, I recommend 
this as an instructive example. D 
SEE PROGRAM LISTING ON PAGE 107 
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An Inside Look At Your Commodores Microprocessor 
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Svery computer can be divided into three main 
parts: a memory {often subdivided into RAM 
and ROM), input and output devices (such as 
keyboards, video monitors, cassette record- 
ers, and disic drives), and a central processing unit, or 
CPU. 

In a microcomputer such as the Commodore 64, all 
the tiinctions of a CPU are contained in a microproces- 
sor unit (sometimes abbreviated MPU) . And your Com- 
modore's MPU is a very large scale integrated circuit 
(VLSI) called the 6510. In this column, we're going to 
peek inside the 6510 chip and see what makes it go. 

The 6510 microprocessor, an improved version of the 
6502 chip used in Apple and Atari computers, contains 
seven main parts: an arithmetic-logical unit (ALU) and 
six addressable registers. 

The ALU is one of the most important components 
of the 6510 chip. Every time the 6510 performs a calcu- 
lation or a logical operation, the ALU is where all the 
work is done. 

The ALU can actually perform only two kinds of cal- 
culations: addition and subtraction. Division and multi- 
plication problems can also be solved by the ALU, but 
only in sequences of addition and subtraction operations. 

The ALU can compare values, too— but only by sub- 
tracting one value from the other. By performing a sub- 
traction operation, the ALU can determine whether one 
number is larger than the other, or the two numbers are 
the same. 

When two numbers are to be added, subtracted, or 
compared, both are fed into the ALU, along with a sim- 
ple three-letter instruction called a mnemonic. When the 
requested calculation has been performed, its result is 
left in a special 6510 register called an accumulator. Once 
a value is stored in the 6510's accumulator, it can be moved 
into any other 6510 register, or any register in your Com- 
modore's memory. 

Now we'll look at how the ALU and the accumulator 
in the 6510 chip work together. Suppose you wanted your 
computer to add 2 and 2, then place the result into a cer- 
tain memory register. \bu could use an assembly lan- 
guage routine like this: 



LDA #02 
ADC #02 
STA $FB 

The first instruction in this routine, "LDA", means "load 
the accumulator" (with the value that follows). In this 
case, that value is 2. The "#" sign that is in front of the 
2 means that the 2 is to be interpreted as a literal number, 
rather than as the address of a memory location in your 
computer. 

The second instruction in the routine, "ADC, means 
"add with carry." In this addition problem, there is no 
number to be carried, so the "carry" part of the instruc- 
tion has no effect here, and all the ADC instruction does 
is add 2 and 2. 

The third and last instruction in our routine, "STA", 
means "store the contents of the accumulator" (in the 
memory address that follows). 

As you can see, the memory address that follows the 
instruction "STA" is SFB— the hexadecimal equivalent of 
the decimal number 251. 

Since there is no "#" sign in front of the hex number 
SFB, your assembler will not interpret SFB as a literal 
number. Instead, SFB will be interpreted as a memory 
address -and your Commodore will store the sum of 2 
and 2 in Memory Register SFB. 

(Incidentally, if you did want your assembler to inter- 
pret SFB as a literal number, you would have to write 
it "#$FB." When both a "#" symbol and a dollar sign ap- 
pear before a number, it is interpreted as a literal hexa- 
decimal number.) 

If the third line of our routine read "STA ^SFB", how- 
ever, that would be a syntax error— because "STA" (store 
the contents of the accumulator in...) is an instruction 
that must be followed by a value that can be interpreted 
as a memory address, not by a literal number. 

Besides the accumulator, the 6510 processor has five 
other registers: the X Register, the Y Register, the Pro- 
gram Counter, the Stack Pointer, and the Processor Sta- 
tus Register. Here is a brief summation of the functions 
of each: 

• The X Register (abbreviated "X") is an 8 -bit regis- 
ter often used for temporary storage of data during a pro- 
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gram. But it has a special feature: it can be incremented 
and decremented with a pair of one-byte assembly lan- 
guage instructions (INX and DEX). It is therefore often 
used as an index register, or counter, during loops and 
read/data-type instructions in programs. 

• The Y Register (abbreviated "Y") is also an 8-bit reg- 
ister, and can also be incremented and decremented with 
a pair of one-byte instructions (INY and DEY). So. like 
the X Register, it is used both for data storage and as 
a counter. 

• The Program Counter (abbreviated "PC") is a pair 
of 8-bit registers used together as one i6-bit register. The 
two 8-bit registers are sometimes referred to as "Program 
Counter-Low (PCL)" and "Program Counter-High 
(PCH)." 

The program counter always contains the 16-bit mem- 
ory address of the next instruction to be executed by the 
6510 processor. When that instruction has been carried 
out, the address of the next instruction is loaded into the 
program counter. 

• The Stack Pointer (abbreviated "S" or "SP") is an 
8-bit register that always contains the address of the top 
element in a block of RAM. called the hardware stack 
(usually called simply "the stack"). This is a segment of 
memory in which data is often stored temporarily dur- 
ing the execution of a program. We'll go into more de- 
tail about how the stack works later on. 

• The Processor Status Register (usually called just 
the "status register," but abbreviated "P") is an 8-bit reg- 
ister that keeps track of the results of operations per- 
formed by the 6510 processor. 

THE PROCESSOR STATUS REGISTER 

The processor status register is different from the other 
registers in the 6510 microprocessor. It isn't used for stor- 
ing ordinary 8-bit numbers, as the others are. Instead, 
it uses its bits as flags to keep track of several kinds of 
important information. 

Four of the status register's bits are called status flags: 
the carry flag (C), the overflow flag (V), the negative 
flag (N), and the zero flag (Z). These are used to keep 
track of the results of operations being carried out by 
the other registers inside the 6510 processor. 

Three of the P register's other bits, called condition 
flags, are used to determine whether certain conditions 
exist in a program. These three bits are the interrupt dis- 
able flag (I), the break flag (B), and the decimal mode 
flag (D). 

An eighth bit in the status register is not used. 

THE PROCESSOR STATUS FLAG 

The processor status register can be visualized as a 
rectangular box containing six square compartments. 
Each "compartment" in the box is actually a bit, and each 
bit is used as a flag. 

If a given bit is a T instead of a "0," it is said to be 
a flag that is set. 

If a given bit is a "0" instead of a "1," it is said to be 



a flag that is cleared. 

The bits in the 6510 status register- like the bits in all 
8-bit registers— are customarily numbered from to 7, 
The rightmost bit is Bit 0, the leftmost is Bit 7. 
THE PROCESSOR STATUS REGISTER 



BITS 
FLAGS 


7 

N 


6 
V 


5 


4 
B 


3 
D 


2 
I 


1 
Z 




c 


1 1 1 1 1 1 1 1 



Following is a complete list of the flags in the 6510's 
processor status register, and an explanation of each. 

Bit 0— The Carry Flag (C): As you'll recall from last 
month, it isn't easy to do 16-bit arithmetic with an 8-bit 
chip like the 6510. When the 6510 chip is required to per- 
form an addition operation on a number greater than 255 
— or if the result of a calculation might be greater than 
255 a program has to be written that will break each 
number down into 8-bit segments for processing, and will 
then patch all of the numbers back together. 

This kind of mathematical cutting and pasting involves 
a lot of carrying (during addition) and borrowing (dur- 
ing subtraction). And the carry flag of the 6510 P regis- 
ter is the flag that keeps up with all of this carrying and 
borrowing. If an addition operation results in a carry, 
the carry flag is automatically set; if a subtraction oper- 
ation requires a borrow, the carry flag notes that, too. 

Since the carry flag is almost constantly being set and 
cleared as a result of carries and borrows in addition and 
subtraction, it's a good idea to clear it before an addi- 
tion operation is to be carried out- and to set it before 
a subtraction operation takes place. Otherwise, your cal- 
culations may be messed up by the leftover results of pre- 
vious operations. 

The assembly language instruction that clears the P 
register's carry bit is CLC, which stands for "clear carry." 
The instruction that sets the cany bit is SEC, which stands 
for "set carry" 

Bit 1-The Zero Flag (Z): When the result of an arith- 
metical or logical operation is zero, the status register's 
zero flag is automatically set. Addition, subtraction, and 
logical operations can all result in changes in the status 
of the zero flag. If a memory location or an index regis- 
ter is decremented to zero, that will also result in a set 
zero flag. 

An ironic 6510 convention is that when the result of 
an operation is zero, the zero flag is set to I, and when 
the result of an operation is not zero, the zero flag is 
cleared to 0. It's important to understand this concept, 
since it would be easy to assume that the zero flag oper- 
ates in the opposite manner- 
There are no assembly language instructions to clear 
or set the zero flag. It's strictly a "read" bit, so instruc- 
tions to write to it are not provided. 

Bit 2 -The Interrupt Disable Flag (I): Some Com- 
modore programs contain interrupts -instructions that 
halt operations temporarily so that other operations can 
take place. Some of these are called maskable interrupts 
because you can prevent them from taking place by in- 
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eluding "masking" instructions in a program. Others are 
called nonmaskable because you can't stop them from 
taking place, no matter what you do. 

You can disable a maskable interrupt with the P reg- 
ister's interrupt disable flag. When it is set, maskable in- 
terrupts are not permitted; when it is clear, they are. 

The assembly language instruction to clear the inter- 
rupt flag is CLl. The instruction to set the interrupt flag 
is SEI. 

Bit 3-The Decimal Mode Flag (D): The 6510 proces- 
sor normally operates in binary mode, using standard 
binary numbers of the type discussed last month. But 
the 6510 can also operate in what is known as a binary- 
coded decimal (or BCD) mode. To put the 6510 into BCD 
mode, you have to set the decimal flag of the 6510 status 
register. 

BCD arithmetic is slower than plain binary arithmetic, 
and it consumes more memory. But its results, unlike 
those of plain binary arithmetic, are always 100% accur- 
ate. So it is often used in programs in which accuracy 
is more important than speed or memory efficiency. 

The assembly language instruction that clears the deci- 
mal flag is CLD. The instruction that sets the flag is SED. 

Bit 4 -The Break Flag (B): The break flag is set by 
a special assembly language instruction, BRK. Program- 
mers often use the break instruction while debugging. 
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When the instruction is used and the break flag is set, 
certain error-flagging operations take place and control 
of the computer returns to the programmer 

Bit 5— Unused: For some reason, the microprogram- 
mers who designed the 6510 status register left one bit 
unused. This is the one. 

Bit 6 -The Overflow Flag (V): The overflow flag is 
used to detect an overflow from Bit 6 (the next-to-left- 
most bit) in a binary number. If you don't know what 
that means yet, don't be concerned. The overflow flag 
is used primarily in advanced 6510 arithmetic — specifi- 
cally, to keep track of changes in the plus and minus signs 
of signed numbers when signed binary arithmetic is be- 
ing ijerformed. As a beginning- or intermediate-level 
Commodore assembly language programmer, you'll rarely 
—if ever— have occasion to use the overflow flag. Nev- 
ertheless, we'll discuss it at length in a later column. 

The assembly language instruction that clears the over- 
flow flag is CLV. There is no instruction to set the flag, 
since it's read-only. 

Bit 7-The Negative Flag (N): The negative flag is 
set when the result of an operation is negative, and cleared 
when the result is zero. It is often used in operations in- 
volving signed numbers, and has other uses that will be 
discussed in later columns. There are no instructions to 
set or clear the negative flag; there is no need for any, 
since the flag is used for test purposes only. 

PROGRAM: THE 6510 SIMULATOR 

To give you a closeup took at what happens inside your 
computer when it runs an assembly language program, 
Tve created a BASIC program called the 6510 Simulator 
(see page 98). It is not a machine language assembler, 
but it works much like one. When you load it and run 
it, it will present you with a screen display that will show 
you exactly what happens inside your 6510 chip's X, Y, 
and P registers when your computer is running an as- 
sembly language program. 

To use the 6510 Simulator, all you have to do is type 
in legal statements written in assembly language. You can 
use it with any of the instructions mentioned in this col- 
umn, and with all other instructions that are legal in 6502/ 
6510 assembly language. The simulator will not accept 
labels or indirect addressing modes (two more topics that 
will be discussed in later columns). It will also reject 
statements that contain incorrect spacing, syntax errors, 
illegal address modes, and unacceptably long numbers. 
And, although it can read memory locations, it can't write 
to them. So it can't freeze up your computer while you're 
testing out a program. 

The 6510 Simulator is a rather long and complex pro- 
gram, but well worth the time it will take to type it. If 
an assembly language routine won't work correctly, the 
6510 Simulator will often show you exactly what's going 
wrong. So please type it and save it (or purchase this 
month's Ahoy! disk or cassette). By the time we get to 
later columns in this series, you'll be glad you did. D 
SEE PROGRAM LISTING ON PAGE 98 
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ach month, well present several challenges de- 
signed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. We invite you to send your solutions to: 

Commodares c/o Ahoy! 

P.O. Box 723 

Bethel, CT 06801 

We will print the most interesting and/or unusual solu- 
tions. Be sure to identify the name and number of the 
problems you are solving. Also show sample runs if pos- 
sible, where appropriate. Programs on diskettes are wel- 
come, but they must be accompanied by listings. Also 
tell what makes your solutions unique or interesting, if 
they are. Yow must enclose a stamped, self-addressed en- 
velope if you want any of your materials returned. 

"Vbur original programming problems, suggestions, and 
ideas are equally welcome! The best ones will become 
Commodares. 



Problem M18-1: Cycling Function 

Jim Speers (Niles, MI) suggested this problem. Com- 
plete the fiinction definition in line 10 so that the output 
in line 30 will cycle from to 100 and back again in 
steps of 5. Perhaps a little head scratching is in order. 



10 DEF FNC(D)=... 

20 D=5 : X=0 

30 PRINT X : X=X+D 



D=FNC(D) : GOTO 30 



Jim sent some general purpose cycling furtctions which 
we will reveal next month. 



Problem m-2: Billiard Balls 

Wallace Leeker (Lemay, MO) has sent his solution to 
the classic billiard ball problem. A warning before you 
start on this one: it's addictive and time consuming. Here 
it is: 

You have twelve billiard balls, all identical in appear- 
ance. One has an internal flaw, making it either heavier 
or lighter than the other eleven. The computer has a sim- 
ple balance scale and is allowed only three weighings 
in order to determine which is the flawed ball. 

The user will decide which of the balls, numbered 1 
through 12, is the culprit. The computer will select a 
combination of balls to put onto the balance (some on 
the left side and some on the right). The user will then 
tell the computer whether the scale is a) heavy on the 



left, b) balanced, or c) heavy on the right. The compu- 
ter will repeat this sequence two more times. After the 
user's third response, the computer will tell which ball 
is different and whether it is heavy or light. 

If some of you end up dreaming about billiard balls, 
don't say we didn't warn you. 



Problem ffl8-3: Scroll Ski 

Use the Commodore's screen scrolling to create a 
downhill skiing game. One simple catch: your program 
must be only one or two lines long. As easy as that! 



Problem §18-4: Letter Math 

Here's one of millions of similar problems. Perhaps 
you've solved them with paper and pencil before. This 
time you can be lazy and let the computer do all the work. 
Write a program to let the computer find values of X, 
Y, and Z to make this sum correct. Except for FOR and 
NEXT statements, use only one statement per program 
line. By the way, Z must not be 0. 

XYZ 

ZY 
X 

YXX 



This month we will look at reader's solutions to Feb- 
ruary's Commodares as well as a few odds and ends. First 
I want to reiterate the time schedule for this column. This 
June issue is being written in mid-February. All letters 
received by the middle of the magazine cover month will 
be given prime consideration for publication. Respons- 
es to February Commodares received after the middle 
of February will still be read, but they have less proba- 
bility of being mentioned since they are too late to be 
discussed this month. Don't let that discourage you from 
sending your solutions any time. The most unusual ones 
will be included in this column. If you sent a valid solu- 
tion to some of the Commodares but your name didn't 
appear in genuine print, it is probably because your solu- 
tion didn't reach us before mid-month. 

In response to Commodare iflO-l: Numeric Palindrome 
from last October, James Killman (Memphis, TN) men- 
tioned that he ran his program for 28 days, 12 hours, 
28 minutes, and 46 seconds before he got fed up and 
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quit-without a solution! His program cycled through 
12,954 passes and reached a number 5,366 digits long. 
The problem was to take a number (196), reverse it, add 
the two together, see if the sum is a palindrome, and if 
not repeat the process using the sum instead of the ori- 
ginal number. The palindrome for 196 has supposedly 
not been determined even on large computers. Mr. Kill- 
man's routine POKEs each digit into a reserved section 
of memory, reversing the direction each time. It POKEs, 
compares, reverses the digits, and then adds them. The 
numbers can be as large as the amount of memory al- 
lows. If you would like to see a listing of Mr. Killman's 
twenty line BASIC program, send a stamped, self-ad- 
dressed envelope to Commodores with your request. 

Rick Nash (Millersburg, OH) sent the following as- 
sembly language implementation of Commodore §13-3: 
Micro Cak: As we mentioned last month, the solution 
to diis problem doesn't really do anything that isn't al- 
ready available in BASIC. The user can easily type in 
a string of numbers and mathematical operators in com- 
mand mode and let the computer print the results. Writing 
a program to let the user type the numbers and opera- 
tors gives some insight into the problems of parsing and 
of how a compiler might be created. Rick's solution shows 
some useful procedures for accessing various BASIC util- 
ity routines from assembly language. The assembly lan- 
guage listing and a BASIC program to run it are listed 
below: 

1 REM ASSEMBLY LANGUAGE USR ROUTINE 

2 REM SOLUTION TO PROBLEM #13-3 

3 REM MICRO CALC 
A REM BY RICK NASH 

5 REM 



90 :*=$02A7 



; PROGRAM ORIGIN 



100 
110 
120 
130 
140 
150 
160 
170 
180 



TXTPTR=$7A 

INDEX =$22 

FRESPC=$35 

VARPTR=$64 

BUFFER=$0200 

CHRGET=$0073 

M0VSTR=$B68C 

CRUNCH=$A57C 

FRMEVL=$AD9E 



(VIC=$D68C) 
(VIC=$C57C) 
(VIC=$CD9E) 



190 REM SAVE TEXT POINTER ON STACK 



200 
210 
220 
230 



LDA TXTPTR 

PHA 

LDA TXTPTR+1 

PHA 



240 REM (64) PTS. TO STRING DESCRIPTOR 



250 
260 
270 
280 
290 
300 
310 
320 



LDY #0 

LDA (VARPTR),Y 

PHA 

INY 

LDA (VARPTR),Y 

STA INDEX 

INY 

LDA (VARPTR),Y 



; STRING LENGTH 
rON STACK 

; ADDRESS LOW 



; ADDRESS HIGH 



330 


STA INDEX+1 




340 


PLA 


, STRING LENGTH 


350 


TAY 


•TO Y 


360 


LDA #0 




370 


STA BUFFER, Y 


SET END 


380 


LDA #<BUFFER 




390 


LDX #>BUFFER 




400 


STA FRESPC 


SET PTRS FOR 


410 


STX FRESPC+1 


•VARIABLE MOVE 


420 


STA TXTPTR 


SET PTRS FOR 


430 


STX TXTPTR+1 


CRUNCH ROUTINE 


440 


TYA 


.A=VAR LENGTH 


450 REM MOVE VARIABLE TO INPUT BUFFER 1 



470 REM TOKENIZE STRING 

480 :JSR CRUNCH 

490 REM BUMP TEXT POINTER 

500 ;JSR CHRGET 

510 REM EVALUATE EXPRESSION 

520 :JSR FRMEVL 

530 REM RESTORE TEXT POINTER 

540 :PLA 

550 :STA TXTPTR+1 

560 :PLA 

570 :STA TXTPTR 

580 REM RETURN TO USR ROUTINE & ASSIGN 

590 REM VALUE IN FACl TO FLOATING 

600 REM POINT VARIABLE 

610 :RTS 

1 REM BASIC SOLUTION TO PROBLEM #13-3 

2 REM MICRO CALC 

3 REM BY RICK NASH 

4 REM 

40 F0RA=679 TO 738: READ DrPOKE A, D: NEXT 

50 POKE 785, 167: POKE 786,2 

60 INPUT"PROBLEM ";A$:IF A$="END" THEN E 

ND 

70 PRINT"THE ANSWER IS: ";USR(A$) :PRINT: 

GOTO 60 

80 DATA 165,122,72,165,123 

90 DATA 72, 160,0, 177, ir/j 

100 DATA 72,2f/J,177,ir/j,l33 

110 DATA 34,20rj,177,100,133 

120 DATA 35,104,168,169,0 

130 DATA 153,0,2,169,0 

140 DATA 162,2,133,53,134 

150 DATA 54,133,122,134,123 

160 DATA 152,32,140,182,32 

170 DATA 124,165,32,115,0 

180 DATA 32,158,173,104,133 

190 DATA 123,104,133,122,96 

The BASIC program installs the machine language rou- 
tine, then asks the user to enter a numeric problem such 
as 2-3*SQR(18), which is stored as a string. You may 
use any BASIC functions, previously defined floating 
point or integer variables, or mathematical or Boolean 



82 AHOY! 



operators in the numeric problem. In the machine lan- 
guage program, the sequence is as follows: 1) the string 
(A$) is copied into the input buffer ($0200), 2) the string 
is scanned and tokenized, 3) the formula is evaluated us- 
ing BASIC'S evaluator routine with the result left in the 
floating point accumulator, and 4) the USR routine re- 
turns the value ftom the floating point accumulator (FACl) 
Below is the solution from R.W. Kober (Buffalo, TX) 
to his Commodare M17-2: Printer Sentinel from last month: 

1 REM R.W. KOBER 

2 REM PROBLEM #17-2 : PRINTER SENTINEL 
5 GOTO 100 

10 OPEN 4,4 

20 PRINT#4:IF ST AND 128 THEN 40 

30 CLOSE 4: RETURN 

40 PRINT TAB(248)"THE PRINTER IS NOT ON! 

"CHR$(19):G0T0 20 

99 REM MAIN PROGRAM 

100 PRINT CHR$(147) 

110 GOSUB 10 :REM <« CHECK ON PRINTER 
120 OPEN 4,4:PRINT#4,"PRINTER IS ON" 
130 CLOSE 4 

Before printing, the program calls this subroutine. If the 
printer is not on, the message is printed, and the sub- 
routine loops until the printer is turned on. If the printer 
is on, control is returned immediately to the calling pro- 
gram. Notice the use of the ST (STATUS) function. Also 
notice that the space between the ST and the AND is 
necessary. Can you figure out why? Omit the space and 
see what happens. 

John Twardowski (Albany, NY) sent solutions Com- 
modares §14-1: Maximus Input and If 14-2: Singles Only 
combined into one program. 

1 REM JOHN TWARDOWSKI 

2 REM PROBLEMS 14-1 AND 14-2 

3 REM MAXIMUS INPUT AND SINGLES ONLY 

4 REM 

10 PRINT CHR$(147) : LF$=CHR$(157) 
20 PRINT CHR$(164); 
30 GET A$:IF A$="" THEN 30 
40 IF A$=CHR$(13) THEN PRINT LF$" " : GO 
TO 70 

50 IF A$=CHR$(20) THEN PRINT LF$" "LF$LF 
$;:B$=LEFT$(B$,LEN(B$)-1):G0T0 20 
60 B$=B$+A$: PRINT LF$A$;:G0T0 20 
70 DIM A (90): FOR K=l TO LeN(B$):B=ASC(MI 
D$(B$,K,1)):A(B)=A(B)+1:NEXT 
80 PRINT :PRINT"MISSING": FOR K=65 TO 90:1 
F A(K)=0 THEN PRINT CHR$(K)" "; 
90 NEXT: PRINT :PRINT"DUPLICATES": FOR K=65 
TO 90: IF A(K)>1 THEN PRINT CHR$(K)" "; 
100 NEXT 

Several other readers took a similar approach to crea- 
ting a cursor in Problem itl4-l. There was no require- 



ment that the cursor must blink. The majority of the solu- 
tions to Problem ltl4-2 were much like John's approach. 
Paul Sisul (St. Louis, MO) sent the following solu- 
tiDn to Problem §14-2: Singles Only which doesn't use 
any IF statements. Instead he uses logical expressions. 
Furthermore, his solution contains no arrays or sub- 
scripted variables. 

1 REM PAUL SISUL 

2 REM PROBLEM #14-2 : SINGLES ONLY 

3 REM 

20 INPUT S$:F0R J=65 TO 90:C=0:F0R K=l T 
LEN(S$):C=C-(MID$(S$,K,1)=CHR$(J)) 
30 NEXT KiPRINT CHR$(48*(1+(C=1))+C);" " 
;CHR$(J*-(C<>1)),:NEXT J 

To understand Paul's solution, recall that a logical ex- 
pression has a value of if it is false and -1 if it is true. 
Consequently the function CHR$(J * -(C< >1) ) rep- 
resents CHR$(0) for any letter whose count is equal to 
one If the current letter's count does not equal one, the 
expression (C< >1) is true and has the value -1. There- 
fore -(C< >1) equals 1, and CHR$(J * -(Col) ) 
equals CHR$(J). The other CHR$ function in line 30 
converts the count C into its ASCII value which is also 
printed. Some tricky but interesting programming! 

Several readers sent panagrams from various sources 
in response to Problem ffl4-2: Singles Only. Mike Skloff 
(New "Vt>rk, NY) included his favorite typing test, "Pack 
my box with five dozen liquor jugs" as well as an even 
shorter "Waltz, nymph, for quick jigs vex Bud." Neither 
of these are perfect pangrams since they contain dupli- 
cate letters. Some of the perfect ones he sent include: 
Cwm, Qord-bank glyphs vext quiz. 
Zing! Vext cwm fly jabs Kurd qoph. 
Milk-vat fez bugs qoph-crwd jynx. 

These are from Dmitri A. Borgmann's book Language 
on Vacation (Scribner's, 1965). Mr. Skloff leaves the 
translations of these sentences up to you. Dig out the un- 
abridged dictionary for these! 

Jim Root (Whitmore Lake, MI) sent this sentence con- 
taining all the letters: "Wafting zephyrs quickly vexed 
Jumbo." I think he's talking about a flying elephant. Clif- 
ford Dedmore Jr. (North Bend, OR) sent "Cwm kvutza 
qoph jynx fled brigs" from the Guinness Book of Wyrld 
Records, which was supposedly found with the use of 
three computers. Again, the translation is up to you. 

There were many good solutions to Problem 014-3: 
Digital Deduction. Most readers knew that by using bi- 
nary search techniques the computer can deduce the user's 
number (between 1 and 1000) in ten or fewer guesses. 
In fact, since 1024 is two raised to the tenth power, the 
range of numbers could be 1 to 1024 and still guarantee 
that not more than ten guesses are needed. 

David Alan Wright (New Britain, CT) sent the follow- 
ing solution which requires only (are you ready for this?) 
nine, yes, nine guesses by the computer! Now before you 
start throwing the books on mathematical theory at me, 
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a word of explanation. As David points out, "The max- 
imum number of guesses is nine. After each guess, the 
possibilities are halved. On the ninth guess, only one pos- 
sible number is left, and the program tells you the an- 
swer rather than asks, so a tenth guess is unnecessary." 
Voil^! His solution is listed below. 

1 REM COMMODARE #14-3: DIGITAL DEDUCTION 

2 REM SOLUTION BY DAVID ALAN WRIGHT 

3 REM 

10 PRINT" CHOOSE A NUMBER FROM 1 TO U/JO 
AND HIT RETURN":INPUT A$:H=1000 
20 A$="X":IF(L+H)/2<>L+1THEN N=INT((L+H) 
/2):PRINT"IS'*N"H, L OR EQUAL" ;: INPUT A$ 
30 IF LEFT$(A$,I)="H" THEN H=N : G=G+1 : GOT 
20 
40 IF LEFT$(A$,1)="L" THEN L=N:G=G+1:G0T 

20 

50 PRINT"AFTER"G"GUESSES YOUR NUMBER IS 
";:IF (L+H)/2=L+1 THEN PRINT L+1:END 
60 PRINT N 

Chuck McGafFm (Ballston Lake, NY) sent an equa- 
tion for calculating the maximum number of guesses (N) 
required to find a single item from a group of M items: 

N = INT(L0G(M)/L0G(2) +1) 

Wallace Leeker (Lemay, MO) simplified the mathe- 
matics of this problem by making his first guess 512. 
From then on, he merely divided the guess by two and 
either added or subtracted the result to obtain the next 
guess. That way he eliminated ail the INT and rounding 
statements that other readers used. 

John Deering (TUstin, CA) and Chuck McGaffin both 
sent separate programs which simulated the entire game. 
Both programs tabulated the numbers of computer guess- 
es required for each chosen number from 1 to 1000, For 
example if the user thought of the number 500, the com- 
puter would guess it on the first try. If the target number 
was 250, the computer could guess it on the second try, 
and so forth. Mr. Dearing's program calculated the maxi- 
mum and the average number of guesses required for all 
selected numbers. Mr. McGaffin's program below keeps 
track of the total of one-guess numbers, two-guess num- 
bers, etc. Perhaps you could expand this concept to find 
the "safest" targets, i.e., the numbers that require the most 
computer guesses to deduce. 

1 REM CHUCK MCGAFFIN 

2 REM PROBLEM #14-3 : DIGITAL DEDUCTION 

3 REM COMPUTER SIMULATION TO VERIFY THAT 
EVERY NUMBER IS GUESSED IN < 10 TRIES 

4 REM 

10 FOR N=l TO 1''//j:NG=1 
20 LUl:UL=10r/J: 1=500: GOTO 40 
30 I=INT((LL+UL)*,5):NG=NG+1 
40 IF N<I THEN UL=I-1:G0T0 30 
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50 IF N>I THEN LL=I+1:G0T0 30 

60 IF NG>10 THEN PRINT N 

70 G(NG)=G(NG)+1 

80 NEXT 

90 FOR J=l TO 10:PRINT G(J);:NEXT 

The final solutions this month are for Problem 014-4: 
Roman Translation. The user types a Roman numeral 
and the computer gives the Arabic equivalent. These pro- 
grams from Clifford Dedmore Jr. (North Bend, OR) and 
John Immarino (Hackensack, NJ) were chosen from sev- 
eral submitted because of their brevity and because they 
use such greatly differing approaches to the solution. 

1 REM CLIFFORD DEDMORE JR. 

2 REM PROBLEM #14-4 : ROMAN TRANSLATION 

3 REM 

10 DIM T(20):INPUT"ENTER ROMAN NUMERAL"; 

A$ 

20 FOR K=l TO LEN(A$):B$=MID$(A$,K,1) 

30 L=-(B$="I")-5*(B$="V")-10*(B$="X")-50 

*(B$="L")-100*(B$="C")-500*(B$="D") 

35 L=L-100rj*(B$="M") 

40 T(K)=sL:NEXT 

50 FOR K=l TO LEN(A$):IF T(K)>=T(K+1) TH 

EN Tr=rr+T(K):GOTO 70 

60 TT=TT+T(K-Hl)-T(K):K=K+1 

70 NEXT: PRINT TT 



1 REM JOHN IMMARINO 

2 REM PROBLEM #14-4 : ROMAN TRANSLATION 

3 REM 

10 V$="MXLXVI" 

20 INPUT"R0MAN NUMERAL" ;R$:U7 

30 FOR A=LEN(R$) TO 1 STEP -1 

40 :X=2:F=500fj 

50 ::FOR B=l TO 7 

60 :::IF MID$(R$,A,1)=MID$(V$,B,1) THEN 

C=B:B=7 

70 :::X=ABS(X-7):F=F/X 

80 ::NEXT B 

90 :T=T+F*( (C>L)-(C<=L) ) :L=C 

100 NEXT A 

110 PRINT"ARABIC";T:PRINT:T=0:GOTO 20 

Notice Clifford's use of the "conditional LET" state- 
ment in line 102. This technique is based upon the con- 
cepts of logical expressions which we discussed above. 
John also employs a logical expression in line 180 to de- 
termine the correct result when a smaller value occurs 
before a larger value and must be subtracted from it. A 
good exercise would be to "play computer" and figure 
out how both of these programs work. Jim Speers (Niles, 
MI) pointed out that these programs work only if the user 
types in Roman numerals in the proper format. An input 
such as "CIVX," for example, will be evaluated, but it 

Continued on page 114 
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PROGRAM LISTINGS 



Attention new Ahoy! readers! You must read the following information very 

carefully prior to typing in programs listed in Ahoy.' Certain Commodore 

characters, commands, and strings of characters and commands will appear in 

a special format. Follow the instructions and listing guide on this page. 



On the following pages you'lJ find several 
programs that you can enter on your 
Commodore computer. But before doing 
so, read this entire page carefully. 

To insure clear reproductions. Ahayrs program 
listings are generated on a daisy wheel printer, in- 
capable of printing the commands and graphic char- 
acters used in Commodore programs. These are 
therefore represented by various ctxies enclosed in 
brackets [ ]. For example: the SHIFT CLR/HOME 
command is represented onsci^en by a heart @ . 
The code we use in our listings is [CLEAR] . The 
chart below lists all such codes which you'll encoun- 
ter in our listings, except for one other special case. 
The other special case is the COMMODORE and 
SHIFT characters. On the front of most keys are two 
symbols. The symbol on the left is obtained by 
pressing that key while holding down the COMMO- 
DORE key; the symbol on the right, by pressing 
that key while holding down the SHIFT key. COM- 
MODORE and SHIFT characters are represented in 
our listings by a lower-case "s" or "c" followed by 
the symbol of the key you must hit. COMMODORE 



J. for example, is represented by [c J], and SHIFT J 
by [s JJ. 

Additionally, any character that occurs more than 
two times in a row will be displayed by a coded list- 
ing. For example. [3 "|LEFT|"J would be 3 
CuRSoR left commands in a row, [5 "is EP]"1 
would be 5 SHIFTed English Pounds, and so on. 
Multiple blank spaces will be noted in similar fash- 
ion: 22 spaces, for example, as [22 '" "|. 

Sometimes you'll find a program line that's too 
long for the computer to accept (C-64 lines are a 
maximum of 80 characters, or 2 screen lines, long; 
VIC 20 lines, a maximum of 88 characters, or 4 
screen lines). To enter these lines, refer to the BASIC 
Command Abbreviations Appendix in your User 
Manual. 

On the next page you'll find our Bug Repellent 
programs for the VIC 20 and C-64. The version ap- 
propriate for your machine will help you proofread 
our programs after you type them. (Please note: the 
Bug Repellent line codes that follow each program 
line, in the whited-out area, should not be typed in. 
See the instructions preceding each program.) D 
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I M DHDTA MTI ^^^^^ '^^ ^^^^^ background are Bug Repellent line codes. Do not enter them! This and the preceding page explain these 
IIVIl Un IHIl I ! codes and provide other essential information on entering Ahoy! programs. Read these pages before entering programs. 



BUG REPELLENT 

This program will let you debug any .iJwy! program. Follow in- 
slructions for VIC 30 (cassette or disk) or CM. 

VIC 20 VERSION 
By Michael Kleinert and David Barron 

For casseiie: type in and save the Bu)f Rcpcllen! program, ihcn 
type RUN 630001 RETURNjSYS 828[RETURN]. II" you typed ihe 
program properly, it will generate a set of two-letter line codes that 
will match those listed to the right ot the respective program lines. 

Once you've got a working Bug RepeHeiii, type in the program 
you wish to check. Save it and type ihe RUN and SYS commands 
listed above once again, then compare the line codes generated to 
tho.sc listed in the magazine. If you spot a discrepancy, a typing 
error exists in that line. Important: you must use exactly the same 
spacing as the program in the magazine. Due to memory limitations 
on the VIC. the VIC Bh.i; Repellent will register an error if your 
spacing varies from what's printed. 

You may type SYS 828 as many limes as you wish, hut if you 
use the cassette, for anything, type RUN 63000 to restore the 
RjepcUem. 

When your program has been disinfected you may delete all lines 
from 63000 on. (Be sure the program you type doesn't include lines 
abovQ 63000!) 

For disk: enter Bug Repellent, save it, and type RUNrNEW 
[RETURN] . Type in the program you wish to check, then SYS 828. 

To pause the line codes listing, press SHIFT. 

To send the list to the printer type OPEN 4.4:CMD 4:SYS 
828|RETURN1. When the cursor conie.s back, type 
PRINT#4:CLOSE 4|RETURN]. 

63r//J F0RX=828T01023: READY :POKEX,Y: NEXT: END AC 
63r/Jl DATA169, 0,133, 63, 133, 64, 165, 43, 133, 251 JL 
63r/j2 DATA 165, 44, 133, 252, 160, 0,132, 254, 32, 228 DF 
63003 DATA3, 234, 177, 251, 208, 3, 76, 208, 3, 230 OE 
63r/j4 DATA251, 208, 2, 230, 252, 169, 244, 160, 3, 32 OH 
esr/jS DATA30 , 203 , 160 , , 1 77 , 25 1 , 1 70 , 230 . 251 , 20 
8 KG 

63r/j6 DATA2, 230, 252, 177, 251, 32, 205, 221, 169, 58 JJ 
630''j7 DATA32, 210, 255, 169, 0,133,253,230,254,32 OK 
630fj8 DATA228, 3, 234, 165, 253, 160, 0,170, 177, 251 LG 

63009 DATA201, 32, 240, 6, 138, 113, 251, 69, 254, 170 BP 

63010 DATA138, 133, 253, 177, 251, 208, 226, 165, 253 
,41 DD 

6301 1 DATA240 , 74 , 74 , 74 , 74 , 24 , 105 , 65 , 32 , 210 EK 

63012 DATA255, 165, 253, 41, 15, 24, 105, 65, 32, 210 FO 

63013 DATA255, 169, 13, 32, 210, 255, 173, 141, 2, 41 PK 

63014 DATAl, 208, 249, 230, 63, 208, 2, 230, 64, 230 CB 

63015 DATA251, 208, 2, 230, 252, 76, 74, 3, 169, 236 KH 

63016 DATA160,3,32,30,203,166,63,165,64,32 DP 

63017 DATA205, 221, 169, 13, 32, 210, 255, 96, 230, 25 

1 EL 

63018 DATA208,2,230,252,96,0,76,73,7^,69 01 

63019 DATA83 , 58 , 32 , , 76 , 73 , 78 , 69 , 32 , 35 FG 

63020 DATA32, 0,0, 0.0,0 LE 

C-64 VERSION 
By Michael Kleinert and David Barron 

Type in. SAVE, and RUN the Btii; Repcllciii. T>pe NEW, ihcn 
type in or LOAD the Ahoy! program you w ish to check. When thais 
done. SAVE your program (don't RUN it!) mid tvpc SYS 4MI52 
I RETURN I ' 

To pause the listing depress iind hold the SHIFT key. 

Compare the codes your niachinc generates lo ihc okIcs listed 
to the right of the respective program lines. If you spot a diffcrciKC. 
an error exists in that line. Jol down the number of lines where 
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contradictions occur. LIST each line, spot the errors, and correct 
ihetn. 

• 50VJ F0RX=49152T049488 : READY : POKEX , Y :NEXT: END GJ 
•5001 DATA32, 161, 192, 165, 43, 133, 251, 165, 44,133 01 

•5r/j2 DATA252, 160, 0,132, 254, 32, 37, 193, 234, 177 DE 

•5f/j3 DATA251, 208, 3, 76, 138, 192, 230, 251, 208, 2 OF 

•5004 DATA230,252,76,43,192,76,73,78,69,32 U 

■5005 DATA35, 32, 0,169, 35, 160, 192,32,30,171 CA 

■5f/j6 DATA160, 0,177, 251. 170, 230, 251, 208, 2, 230 CE 
•5f/j7 DATA252,177,251,32,205,189,169,58,32,210 JI 

•5008 DATA255, 169. 0.133, 253, 230, 254, 32, 37, 193 CI 

•5009 DATA234, 165, 253, 160, 0,76, 13, 193, 133, 253 NB 
•5010 DATA177, 251. 208, 237, 165, 253, 41, 240, 74, 74 MB 

-5011 DATA74,74,24, 105,65,32,210,255, 165,253 EP 

•5012 DATA41, 15. 24, 105, 65, 32, 210, 255, 169, 13 GH 

•5013 DATA32, 220, 192, 230, 63, 208, 2, 230, 64, 230 AN 

•5014 DATA251, 208, 2, 230, 252, 76, 11, 192, 169, 153 NG 

•5015 DATA160, 192, 32, 30. 171. 166, 63, 165, 64. 76 BF 

•5016 DATA231,192,96,76,73,78,69,83,58,32 EP 

•5017 DATAO, 169, 247, 160, 192, 32, 30, 171, 169. 3 PJ: 

•5018 DATA133, 254, 32, 228, 255, 201, 83, 240, 6, 201 FK! 

•5019 DATA80, 208, 245, 230, 254, 32, 210, 255, 169, 4 Fl 
•5020 DATA166, 254, 160, 255, 32, 186, 255, 169,0,133 

•5021 DATA63, 133,64, 133, 2,32, 189, 255, 32, 192 Q 

•5022 DATA255, 166, 254, 32, 201, 255. 76, 73, 193, 96 N 

•5023 DATA32, 210, 255, 173, 141, 2, 41, 1,208, 249 N 

•5024 DATA96, 32, 205, 189, 169, 13, 32, 210, 255, 32 I^ 

• 5025 DATA204 , 255 , 169 , 4 , 76 , 195 , 255 , 147 , 83 , 67 K 

•5026 DATA82. 69, 69, 78, 32, 79, 82, 32, 80, 82 D 

•5027 DATA73, 78, 84, 69, 82, 32, 63, 32,0,76 M 

■5028 DAT A44, 193. 234, 177. 251. 201, 32, 240, 6, 138 G 

•5029 DATA113, 251, 69, 254, 170, 138, 76, 88, 192,0 J 

•5030 DATAO, 0,0, 230, 251, 208, 2, 230, 252, 96 N 

•5031 DATA170, 177, 251, 201, 34, 208, 6, 165, 2. 73 D 

•5032 DATA255, 133, 2, 165, 2, 208, 218, 177, 251, 201 J 

•5033 DATA32, 208, 212. 198, 254. 76, 29, 193, 0,169 F 

•5034 DATA13, 76, 210, 255, 0,0,0 P 
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GP[LANSS>tKCKD 

By Gordon F. Wheat 

Fkuili\pcctl will allow you to enter machine language Alti>\! pro- 
grams M ilhout Lm\ mistakes. Once \ou ha\e typed the program in. 
save il for future use. While entering an ML program wiih 
Fliinkspcfil there is no need lo enter spaces or hit llic curri;ige return. 
This is all done autoinaticalL . U you make an error in a line a hell 
v\til ring and you will be asked lo enter it again. To LOAD in a 
program Saved v\ ith Fkmkspcvd use LOAD "name". I . I for tape, 
or LOAD "name'.H. I for disk. The function keys may be used after 
the starting and ending addresses ha\e been entered, 
fl -SAVEs what \ou hu\c entered so far 
l3-L0ADs in a program workcti on previously. 
f.**- To continue on a line you stopped ou after LOADing in the 
previously saved Wdrk. 

17 - Scans through the program to locate a particular line, or to find 
out where you stopped the last lime you entered the program. 17 
temporarily frcc/es the outpui us well, 

■5 POKE53280,12:POKE53281,11 • 

•6 PRINT" [CLEAR] [c 8][RVS0N] [ 15" "]FLANKSPEED[ 

1 cK II lit, 

•10 PRINT"[RVS0N]I5" " JMISTAKEPROOF ML ENTRY P 



LL 



ED 



R0GRAM[6" "]" 
•15 PRINT"[RVS0N][9" 

•20 PRINT"[RVS0N][3" 



"]CREATED BY G. F. WHEAT[ 
"]COPR. 1984, ION INTERNA 



MC 



DM 



vns. 

I 

ten 



:END G, 
,133 Dl 
177 DI 
,2 01 

I CI 
230 CI 

,210 J 
193 Cl 
253 NJ 
4,74 MI 
53 EJ 



Gf 
At 



153 N( 
76 B] 
El 
3 P. 
201 F1 
9,A Fl 
,133 Cl 

2 a 

^96 Nl 



9 Nl 
32 II 
57 K( 

Dt 

138 g: 

,0 J 

N 

3 a 

201 J 



59 



64 



h 



llw 



iED[ 
IT P 

AT[ 



SNA 



TIONAL INC. [3" "]" DH 

•30 F0RA=54272T054296:P0KEA,0:NEXT IM 

■40 POKE54272,4:POKE54273,48:POKE54277,0: POKES 

4278,249:POKE54296,15 NH 

•70 FOR A=680T0699:READB:P0KEA,B: NEXT KO 
•75 DATA169, 251, 166, 253. 164, 254, 32. 216, 255, 96 HJ 
■76 DATA169, 0,166, 251, 164, 252, 32, 213, 255, 96 JB 
•80 B$="STARTING ADDRESS IN HEX":GOSUB2010:A1}= 

B:SR=B HC 

■85 GOSUB2520:IFB=0THEN80 FO 

■86 P0KE251,T(4)+T(3)*16:P0KE252,T(2)+T(1)*16 KE 
•90 B$="ENDING ADDRESS IN HEX":GOSUB2010:EN=B IF 
•95 G0SUB2510:IFB=0THEN80 FP 

•96 P0KE254,T(2)+T(I)*16:B=T(4)+1+T(3)*16 MN 
•97 IFB>255THENB=B-255:POKE254,PEEK(254)+l GE 
•98 POKE253,B: PRINT HN 

■100 REM GET HEX LINE IL 

•110 GOSUB3010: PRINT": [c P][LEFT]"; :F0RA=0T08 FG 
■120 F0RB=0TG1:G0T0210 MD 

•125 NEXTB ME 

•130 A%(A)=T(1)+T(0)*16:IFAD+A-1=ENTHEN310 LH 
■135 PRINT" [c P][LEFT.]"; IK 

■140 NEXTA:T=AD-(INT(AD/256)*256):PRINT" " PD 
■150 FORA=OT07:T=T+A%{A):IFT>255THENT=T-255 LK 
■160 NEXT lA 

■170 IFA%(8)<>TTHENG0SUB1010:G0T0110 FK 

• 180 F0RA=0TO7 : POKEAD+A , A%(A) :NEXT: AD=AD+8:G0T 
Olio 

•2f/j REM GET HEX INPUT 
•210 GETA$:IFA$=""THEN210 
•211 IFA$=CHR$(20)THEN270 
•212 IFA$=CHR$(133)THEN4OO0- 
•213 IFA$=CHR$(134)THEN4100 
•214 IFA$=CHR$(135)THENPRINT" 
•215 IFA$=CHR$(136)THENPRINT" 
•220 IFA$>"@"ANDA$<"G"THENT(B)=ASC(A$)-55:G0T0 
250 GH 

• 230 IFA$>"/" ANDA$<" : "THENT( B)=ASC( A$ ) -48 :G0T0 
250 LE 

■240 GOSUB1100;G0TO210 LL 

>250 PRINTA$"[c P][LEFT]"; OA 

■260 G0T0125 CG 

■270 IFA>0THEN280 OP 

■272 A=-1:IFB=1THEN290 OB 

■274 GOT0140 CJ 

■280 IFB=OTHENPRINTCHR$(20);CHR$(2O);:A=A-l HG 
■285 A=A-1 BE 

■290 PRINTCHR$(20);:GOT0140 KH 

■3(/) REM LAST LINE AD 

■310 PRINT" ":T=AD-(INT(AD/256)*256) GJ 
■320 FORB=0TOA-l:T=T+A%(B):IFT>255THENT=T-255 PL 
■330 NEXT I A 

340 IFA%(A)<>TTHBNGOSUB1010:GOTOI10 KF 
350 FORB=OTOA-1;POKEAD+B,A%(B'):NEXT HN 
360 PRINT: PR INT"Ydu ARE FINISHED !":GOT04000 ON 
1000 REM BELL AND ERROR MESSAGES FL 

1010 PRINT:PRINT"LINE ENTERED INCORRECTLY": PR 
INT:G0T01100 DH 

1020 PRINT: PRINT"INPUT A 4 DIGIT HEX VALUE'": 
GOTOllOO- JA 

1030 PRINT :PRINT"ENDING IS LESS THAN STARTING 
!":B=0: GOTOllOO HD 

1040 PRINT :PRINT"ADDRESS NOT WITHIN SPECIFIED 
RANGE! ":B=0:G0TO 1100 AG 

1050 PRINT :PRINT"NOT ZERO PAGE OR ROM!":B=0:G 
OTOllOO Kj^i 



":GOTO45O0 
:GOT04700 



MN 
AB 
HO 
GC 

MD 
KF 
GE 
BJ 



•1060 PRINT"?ERR0R IN SAVE":G0T01100 EI 

•1070 PRINT"?ERR0R IN LOAD": GOTOllOO GL 

••1080 PRINT:PRINT:PRINT"END OF ML AREA":PRINT PG 
•UVj POKE54276, 17: POKE54276, 16: return BH 

•1200 0PEN15,8.15:INPUTn5,A,A$:CL0SE15:PRINTA 
$: RETURN im 

•2r/jO REM GET FOUR DIGIT HEX PC 

•2010 PRINT: PRINTB$;:INPUTT$ GM 

•2020 IFLEN(T$)<>4THENGOSUB1020:GOT02010 II 

■2040 F0RA=1T04:A$=MID$(T$,A,1):G0SUB2060:IFT( 

A)=16THENGOSUB1020:GOT02010 AD 

•2050 NEXT:B=(T(1)*4096)+(T(2)*256)+(T(3)*16)+ 

T(4):RETURN GF 

• 2060 IFA$>"@"ANDA$<"G"THENT( A )=ASC( A$ )-55 : RET 

URN EH 

■ 2070 IFA$>" /" ANDA$<" : "THENT( A )=ASC( A$) -48 : RET 

URN KP 

•2080 T(A)=16:RETURN nP 

•2500 REM ADRESS CHECK LI 

•2510 IFAD>ENTHEN1030 MI 

•2515 IFB<SR0RB>ENTHEN1040 MG 

•2520 IFB<2560R(B>40960ANDB<49152)0RB>53247THE 

N1050 MI 

•2530 RETURN im 

•3000 REM ADDRESS TO HEX EB 

•3010 AC=AD:A=4096:GOSUB3070 HG 

•3020 A=256:G0SUB3070 CE 

•3030 A=16:GOSUB3070 PN 

•3040 A=1:G0SUB3070 ' MJ 

■3060 RETURN ' im 

•3070 T=INT(AC/A):IFT>9THENA$=CHR$(T+55):GOT03 

090 CJ 

•3080 A$=CHR$(T+48) jp 

•3090 PRINTA$;;AC=AC-A*T: RETURN AC 

•4r/j0 A$="**SAVE**":G0SUB42r>fj AI 

•4050 OPEN1,T,1,A$:SYS680:CLOSE1 LH 

•4fj60 IFST=OTHENEND EO 

•4070 G0SUB1060:IFT=8THENG0SUB1200 FJ 

•4080 GOTOUr/f) pF 

•4K/J A$="**LOAD**":GOSUB4200 AB 

•4150 OPEN1,T,0,A$:SYS690:CLOSE1 MF 

•4160 IFST=64THEN110 jh 

•4170 GOSUB1070:IFT=8THENGOSUB1200 CM 

•4180 GOT04100 FO 

•4200 PRINT" ":PRINTTAB(14)A$ FG 

•4210 PRINT :A$="":INPUT"FILENAME";A$ OM 

•4215 IFA$=""THEN4210 GF 

•4220 PRINT :PRINT"TAPE OR DISK?":PRINT DP 
• 4230 GETB$ : T=l : IFB$="D"THENT=8 : A$="@0 : "+A$ : RE 

TURN iG 

•4240 IFB$<>"T"THEN4230 FN 

•4250 RETURN im 

■4500 B$="CONTINUE FROM ADDRESS" ;G0SUB2010:AD= 

B DK 

•4510 GOSUB2515:IFB=0THEN450O MA 

•4520 PRINT :G0T01 10 01 

•4700 B$="BEGIN SCAN AT ADDRESS" :GOSUB2010:AD= 
B FH 

•4705 GOSUB2515:IFB=0THEN4700 NK 

•4706 PRINT:G0TO4740 DI 

•4710 FORB=0TO7: AC=PEEK(AD+B) :GOSUB3030:IFAD+B 
=ENTHEN AD=SR : G0SUB1080 : GOTOl 10 BK 

•4715 PRINT" ";:NEXTB EC 

•4720 PRINT :AD=AD+8 QN 

•4730 GETB$:IFB$=CHR$(136)THEN110 MN 

•4740 GOSUB3010: PRINT": ";:GOT04710 JD 
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JI PODTAMTI '-^"^'^^ °" white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
kiVIl Un IMIl I ! and provide other essential information on entering >*/ioy.' programs. Refer to these pages before entering any programs! 



The Ultimate 
Rescilulion 



FROM PAGE 37 



REM 
REM 
REM 
REM 
REM 



RUPERT REPORT #18 

LISTING 

BIT MAP GRAPHICS 



JD 
PA 
LI 
KG 
JD 

10 DEF FNSB(N)=PEEK<MM) OR 2[UPARR0W]N LG 
20 DEF FNRB(N)=PEEK(MM) AND ( 255-2 [UPARR 
0W]N) FP 

30 VV=53248 :REM VIC-II REGISTER FL 
35 :REM »> PUT BIT MAP AT 8192 «< 

(SFT BIT 3 OF VIC REGISTER 24) JA 
AO MM=VV+24 : POKE MM,FNSB(3) 00 

45 :REM >» SELECT BIT MAP MODE «< 

(SET BIT 5 OF VIC REGISTER 17) DH 
50 MM=VV+17 : POKE MM,FNSB(5) JM 

60 BASE=8192 :REM START BIT MAP MEMORY KD 
65 :REM »> CLEAR BIT MAP <« HG 

70 FOR MM=BASE TO BASE+7999 FN 

80 POKE MM,0 : NEXT MM OF 

85 :REM >» SELECT COLORS CI AND CO «< LC 
90 Cl=l : €0=0 : CC=16*C1 + CO OM 
95 :REM »FILL SCREEN MEMORY WITH COLOR AI 
100 FOR MM=1024 TO 2023: POKE MM, CC: NEXT OM 

194 : DI 

195 ::REM:: MAIN PROGRAM :: AE 

196 : DI 
2C/J FOR N=l TO 1000 CJ 
210 X=RND(0)*320 : Y=RND(0)*200 PO 
220 GOSUB 400 : NEXT NN 
250 FOR P=l TO 3000 : NEXT NE 
294 : DI 
296 : DI 
300 :REM >» RESET BIT MAP MODE <« HJ 
310 MM=VV+17 : POKE MM,FNRB(5) JN 
320 :REM >» RESTORE SCREEN MEMORY BASE GC 
330 MM=VV+24 : POKE MM,FNRB(3) MP 
390 END IC 
395 :REM >» TURN ON PIXEL AT (X,Y) OB 
40fJ BIT=7-(X AND 7) PJ 
410 MM=BASE+320*INT(Y/8)+8*INT(X/8)+(Y A 
ND 7) AP 
420 POKE MM,FNSB(BIT) MO 
430 RETURN IM 



FROM PAGE 18 THREE-VOICE PLAYER 

•1 REM "THREE VOICE PLAYER" MM 

•2 REM PLAY 1, 2, OR 3 VOICES WITH THIS R 
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OUTINE OP 

■3 REM ADD IT TO YOUR PROGRAMS: ADJUST TH 

E DURATIONS AT 9200-9210 AS NEEDED MJ 
•4 REM JD 

•5 REM PLAYS "GOD SAVE THE KING" ("MY COU 

NTRY, 'TIS OF THEE") CL 

•6 REM JD 

•10 GOSUB 9000: GOTO 120 LE 

•60 FOR N=l TO LEN(MD$(PH)) FJ 

•61 FOR VC=0 TO EV% GG 

•62 POKE GR(VC),UG%(VC):REM NORMAL NOTES; 

DON'T POKE UG% FOR LEGATO AE 

•63 FOR 1=0 TO 1 JB 

•64 POKE FR(VC,I),PI%(ASC(MID$(ME$(PH,VC) 

.N,1)),I) BD 

•65 NEXT: NEXT EF 

•66 FOR VC=EV% TO STEP -1:P0KE GR(VC),G 

%(VC):NEXT MB 

•67 FOR 1=0 TO DU%(VAL(MID$(MD$(PH),N,1)) 

):NEXT JB 

•68 REM FOR VC=0 TO EV%:POKE GR(VC),UG%(V 

C): NEXT: REM STACCATO NOTES BO 

•69 NEXT:PH=PH+1:IF PH>ES% THEN PH=0 I J 
•70 FOR VC=0 TO EV%:POKE GR(VC) ,UG%(VC):N 

EXT: RETURN EP 

•100 GOSUB 60 PC 

•110 IF PEEK(653)>0 THEN END FF 

•120 PRINT "PHRASE "PH FC 

•190 GOTO 100 CF 

•8997 REM JD 

•8998 REM SET UP SOUND SHAPE FD 

•8999 REM JD 

•9000 DIM MD$(23),ME$(23,2),MV$(23,2),G%( 

2),GR(2),FR(2,1),AD(2) CF 

•9001 DIM DU%(9),PI%(168,1),AK%(2),DY%(2) 

,SN%(2),RE%(2),WF%(2) OF 

•9007 REM JD 

•9008 REM ATTACK— VOICES 0,1,2 KG 

•9Vj9 RHi NUMBER FROM TO 15; LOWER NUMB 

ER=SHARPER ATTACK OK 

•9010 AK%(0)=2:AK%(1)=2:AK%(2)=2 AN 
•9015 FOR 1=0 TO 2:AK%(I)=AK%(I)*16:NEXT FF 
•9017 REM JD 

•9018 Rm DECAY— VOICES 0,1,2 PK 

•9019 REM NUMBER FROM TO 15; LOWER NUMB 

ER=FASTER DECLINE GA 

•9020 DY%(0)=4:DY%(1)=6:DY%(2)=6 NC 
•9027 REM JD 

•9028 REM SUSTAIN— VOICES 0,1,2 FC 
•9029 REM NUMBER FROM TO 15; LOWER NUMB 

ER=SOFTER VOLUME DURING SUSTAIN JM 
■9030 SN%(0)=12:SN%(1)=8:SN%(2)=9 FB 
•9035 FOR 1=0 TO 2:SN%(I)=SN%(I)*16:NEXT BD 
•9037 REM JD 

•9038 REM RELEASE— VOICES 0,1,2 OK 
•9039 REM NUMBER FROM TO 15; LOWER NUMB 



\ 



ER=FASTER DROP TO SILENCE AT END 
9040 RE%(0)=0:RE%(1)=3:RE%(2)=5 

9047 REM 

9048 REM SET SOUND ADDRESSES 

9049 REM 



PJ 
BG 
JD 
JC 
JD 



9050 FR(0,0)=54272:FR(1,0)=54279:FR(2,0) 
=54286 PG 

9055 FOR 1=0 TO 2:FR(I,1)=1+FR(I,0):GR(I 
)=FR(I,0)+4:AD(I)=GR(I)+1:NEXT HJ 

9057 REM JD 

9058 REM POKE ADSR ENVELOPES JL 

9059 REM JD 

9060 FOR 1=0 TO 2: POKE AD(I),AT%(I) OR D 
Y%(I) EN 

9065 POKE AD(I)+1,SN%(I) OR RE%(I):NEXT DK 

9066 REM JD 

9067 REM SET UP GATES JN 

9068 REM WAVEFORMS, VOICES 0,1,2 (ADD VA 
LUES) : DJ 

9069 REM TRIANGLE 0N=16; SAWTOOTH 0N=32; 
PULSE 0N=64 (SET WIDTH!); NOISE 0N=128 IL 

9070 WF%(0)=64:WF%(1)=64:WF%(2)=32 HP 
9075 FOR 1=0 TO 2:G%(I)=1 OR WF%(I):UG%( 
I)=G%(I)AND 254: NEXT AB 

9077 REM JD 

9078 REM SET PULSE WIDTHS AC 

9079 REM VOICES 0,1,2; LOW BYTE, HIGH BY 



TE 



MG 
JD 
LD 
EP 
JD 
DK 
JB 
NE 
BK 



9080 POKE GR(0)-2,200:P0KE GR(0)-1,3 

9081 POKE GR(1)-2,200:P0KE GR(1)-1,3 

9082 POKE GR(2)-2,200:P0KE GR(2)-1,3 

9096 REM 

9097 REM SET UP PITCH ARRAY 

9098 REM EACH NOTE, IN ALL ITS OCTAVES 

9099 REM C 

9100 X%=3:G0SUB 9190 

9101 DATA 12,1,24,2,48,4,97,8,195,16,135 
,33,15,67,30,134 IF 

9102 REM D NH 

9103 X%=4:G0SUB 9190 PH 

9104 DATA 45,1,90,2,180,4,104,9,209,18,1 
62,37,69,75,139,150 PA 

9105 REM E (F-FLAT) MM 

9106 X%=5:G0SUB 9190:Y%=13:G0SUB 9195 DN 

9107 DATA 81,1,163,2,71,5,143,10,31,21,6 
2,42,125,84,250,168 HM 

9108 REM F (E-SHARP) DB 

9109 X%=6:G0SUB 9190:Y%=19:G0SUB 9195 GE 

9110 DATA 102,1,204,2,152,5,48,11,96,22, 
193,44,131,89,6,179 IL 

9111 REM G NI 

9112 X%=7:G0SUB 9190 AO 

9113 DATA 145,1,35,3,71,6,143,12,30,25,6 
0,50,121,100,243,200 GM 

9114 REM A NC 

9115 X%=1:G0SUB 9190 PA 

9116 DATA 195,1,134,3,12,7,24,14,49,28,9 
9,56,199,112,143,225 PI 



9117 REM B NF 

9118 X%=2:G0SUB 9190 PF 

9119 DATA 250,1,244,3,233,7,210,15.165,3 
1,75,63,151,126,46,253 CF 

9120 REM D-FLAT (C-SHARP) JL 

9121 X%=11:G0SUB 9190:Y%=17:G0SUB 9195 NN 

9122 DATA 28,1,56,2,112,4,225,8,195,17,1 
34,35,12,71,24,142 KJ 

9123 REM E-FLAT (D-SHARP) FD 

9124 X%=12:G0SUB 9190:Y%=18:G0SUB 9195 LD 

9125 DATA 62,1,125,2,251,4,247,9,239,19, 
223,39,191,79,126,159 FB 

9126 REM G-FLAT (F-SHARP) HH 

9127 X%=14:G0SUB 9190:Y%=20:G0SUB 9195 HK 

9128 DATA 123,1,246,2,237,5,218,11,181,2 
3,107,47,214,94,172,189 HG 

9129 REM A-FLAT (G-SHARP) HE 

9130 X%=8:G0SUB 9190:Y%=21 :G0SUB 9195 GN 

9131 DATA 169.1,83,3,167,6,78,13,156,26, 
57,53,115,106,230,212 PA 

9132 REM B-FLAT (A-SHARP) FP 

9133 X%=9:G0SUB 9190:Y%=15:GOSUB 9195 DD 

9134 DATA 221,1,187,3,119,7,239,14,223,2 
9,190,59,124,119,248,238 CN 

9135 REM C-FLAT CH 

9136 X%=10:G0SUB 9190 DL 

9137 DATA 4,1,250,1,244,3,233,7,210,15,1 
65,31,75,63,151,126 AK 

9138 REM B-SHARP IN 

9139 X%=16:G0SUB 9190 CJ 

9140 DATA 24,2,48,4,97,8,195,16,135,33,1 
5,67,30,134,255,255 NM 
9185 GOTO 92r/j FM 

9189 REM READ PITCHES NA 

9190 FOR 1=0 TO 147 STEP 21:READ PI%(I+X 
%,0),PI%(I+X%,1):NEXT: RETURN FN 

9194 REM IDENTICAL PITCHES GA 

9195 FOR 1=0 TO 147 STEP 21 :PI%(I+Y%,0)= 
PI%(I+X%,0):PI%(I+Y%,1)=PI%(I+X%,1) LN 

9196 NEXT: RETURN EJ 

9197 REM JD 

9198 REM SET UP DURATIONS ME 

9199 REM JD 

9200 FOR 1=0 TO 9: READ DU%(I):NEXT MB 
9205 DATA 0,128,256,384,512,640,768,1024 
,1152,1280 CA 

9296 REM JD 

9297 REM SET FILTER AND VOLUME BN 

9298 REM FILTER FREQUENCY DE 

9299 REM LOW BYTE (0-7) X%; HIGH BYTE (0 
-255) Y% PA 
93VJ X%=0:Y%=100 GD 
9305 POKE 54293, X%: POKE 54294, Y% KJ 

9308 REM FILTER ON? DD 

9309 REM VOICE 1 0N=1 ; 2 0N=2; 3 0N=4; 1 
&2 0N=3; 2&3 0N=6; ALL 0N=7 AL 

9310 X%=0 FM 
9318 REM FILTER RESONANCE CE 
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9319 REM PEAK VOLUME (0=LOW, 15=HIGH) FH 

9320 Y%=14 JL 
9325 Y%=Y%*16:P0KE 54295, X% OR Y% MG 

9328 REM SELECT FILTER TYPE CP 

9329 REM L0W-PASS=1 ;BAND-PASS=2; HIGH-PAS 
S=A;L0-BAND=3;HI-BAND=6;ALU7 MH 

9330 X%=1 FP 
9335 X%=X%*16 LC 

9337 REM JD 

9338 REM SELECT OVERALL VOLUME FJ 

9339 REM 15=HIGH, 0-LOW PB 

9340 Y%=15 JK 
9345 POKE 54296, X% OR Y% HN 

9496 REM JD 

9497 REM SET MELODIES HERE PA 

9498 REM JD 

9499 REM HOW MANY VOICES? (MINUS ONE) GN 
950rj EV%=2 KA 

9508 REM JD 

9509 REM HOW MANY PHRASES? (MINUS ONE) MA 

9510 ES%=1 JO 

9514 REM JD 

9515 REM MELODY STRINGS J J 

9516 REM JD 

9517 REM EACH PHRASE HAS ONLY ONE DU%(PH 

) STRING, NO MATTER HOW MANY VOICES AO 

9518 REM EACH PHRASE HAS ONE ME$(PH,VC) 

& ONE MV$(PH,VC) STRING PER VOICE IP 

9519 REM PHRASE IP 

9520 MD$(0)="[3"2"]40[4"2"]40[4"2"]8" GK 

9521 ME$(0,0)="FFG".FGAA[c BjAGFGFEF" JC 

9522 MV$(0,0)="5[15" "]" KL 

9523 ME$(0,1)="CCDCDECFGFEADAGC" KI 

9524 MV$(0,1)="5[12" "]4 5" PB 

9525 ME$(0,2)="FA[c B][3"C"]FD[c B]CCD[c 
B]CCA" DG 

9526 MV$(0,2)="3 234 34 343 " HP 

9529 REM PHRASE 1 10 

9530 MD$(1)="[3"2"]40[4"2"]4022[4"0"]402 
00228" BD 
953^. ME$(l,0)="[4"C"][c B]A[4"[c B]"]AGA 

[c ji]AGFA[c B]CD[c BJAGF" JD 

9532 MV$(1,0)="6[3" "]5[14" *']6 5[3'* "]" LP 

9533 ME$(1,1)-"[4"A"]GF[4"G"]FEFF@F@FEFF 
GFEA" IK 

9534 MV$(1,1)="43 4[3" "]3 4[3" "]3[3" " 
]4[6" "13" EO 

9535 ME$(1,2)=."FAC[3"F"]CEGCBCFDC[c B]AC 



GA[c B]DCCF" 

9536 MV$(1,2)="2 32[6" "]1234 



3 2 3 21 



9897 REM 

9898 REM CONVERT STRINGS TO USABLE FORM 

9899 REM 

9900 FOR PH=0 TO ES%:FOR VC=0 TO EV% 
9905 A$=ME$(PH,VC):ME$(PH,VC)="" 
9910 FOR 1=1 TO LEN(A$) 

9920 X%-ASC(MID$(A$,I,1)) 
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HN 

CL 

JD 
IG 
JD 
AH 
EC 
OE 
IP 



9930 IF X%<72 THEN X%=X%-64:IF X%<0 THEN 
X%=0 

9931 IF X%>192AND X%<2r/j THEN X%=X%-178 

9932 IF X%=176 THEN X%=8 

9933 IF X%=191 THEN X%=9 

9934 IF X%=188 THEN X%=10 

9935 IF X%=172 THEN X%=11 

9936 IF X%=177 THEN X%=12 

9937 IF X%=187 THEN X%=13 

9938 IF X%=165 THEN X%=14 

9939 IF X%>21 THEN X%=0 
9950 V$=MID$(MV$(PH,VC),I,1):IF V$<>" 
THEN Y%=21*VAL(V$) 
9960 X%=X%+Y% 

9970 ME$(PH,VC)=ME$(PH,VC)+CHR$(X%) 

9975 NEXT: NEXT: NEXT 

9980 PH=0 

9990 RETURN 

ONE-VOICE PLAYER 

•1 REM ONE VOICE PLAYER (FAST) 

•2 REM PLAYS "MEXICAN HAT DANCE" 

•3 REM 

•10 GOSUB 9000: GOTO 120 

•60 FOR N=l TO LEN(MD$(PH)) 

•61 D%=VAL(MID$(MD$(PH),N,1)) 

•64 POKE GR,UG%:REM NORMAL NOTES; DELETE 

POKES FOR LEGATO 
•65 FOR 1=0 TO 1:P0KE FR(I) ,PI%(ASC(MID$( 

ME$(PH),N,1)),I):NEXT 
•66 POKE GR,G% 

•67 FOR 1=0 TO DU%(VAL(MID$(MD$(PH),N,1)) 

):NEXT 

■68 REM POKE GR,UG%:REM STACCATO NOTES 
•69 NEXT:PH=PH+1:IF PH>ES% THEN PH=0 
•70 POKE GR.UG: RETURN 
•100 GOSUB 60 

•110 IF PEEK(653)>0 THEN END 
•120 PRINT "PHRASE "PH 
•190 GOTO 100 
•8997 REM 

•8998 REM SET UP SOUND SHAPE 
•8999 REM 

•9000 DIM MV$(23),MD$(23),ME$(23),FR(1) 
•9001 DIM DUX(9),PI%( 168,1) 
•9007 REM 
•9008 REM ATTACK 
•9009 REM NUMBER FROM TO 15; LOWER NUMB 

ER=SHARPER ATTACK 
•9010 AK%=0 
•9015 AK%=AK%*16 
•9017 REM 
•9018 REM DECAY 
•9019 REM NUMBER FROM TO 15; LOWER NUMB 

ER=FASTER DECLINE 
•9020 DY%=5 
•9027 REM 
•9028 REM SUSTAIN 



I 



ED 
GP 
IF 
FN 
II 
IM 
LA 
IE 
HL 
DL 

PG 
MJ 
X 
PI 
HP 
IM 



EH 
NB 
JD 
LE 
FJ 
LE 

IF 

JN 

NA 

JB 

EE 
IJ 
NF 
PC 
FF 
PC 
CF 
JD 
FD 
JD 
JI 
PB 
JD 
FE 

OK 
JL 
DL 
JD 
PJ 

GA 
KF 
JD 
NH 



'8 GP 



9029 REM NUMBER FROM TO 15; LOWER NUMB 
£Tj ER=SOFTER VOLUME DURING SUSTAIN JM 

9030 SN%=1 LL 
Tp'9035 SN%=SN%*16 HB 
Pf,'9037 REM JD 
J J -9038 REM RELEASE IP 
j[^'9039 REM NUMBER FROM TO 15; LOWER NUMB 



ER 



MB 



T A iJi\=rftoiE.n. L/nur iu oujCiWUEi ai cviu PJ 

jg*9040 RE%=0 KA 

jjL*9047 REM JD 

m "9048 REM SET SOUND ADDRESSES JC 

•9049 REM JD 

PG'9050 FR(0)=54272 OK 

Mj-9055 FR(1)=1+FR(0):GR=FR(0)+4:AD-GR+1 CI 

OC*9057 REM JD 

PI -9058 REM POKE ADSR ENVELOPE FE 

HP -9059 REM JD 

IM-9060 POKE AD,AT% OR DY% KD 

•9065 POKE AD+1,SN% OR RE% GJ 

•9066 REM JD 

EH '9067 REM SET UP GATE EN 

NB'9068 REM WAVEFORMS (ADD VALUES): GB 
jD-9069 REM TRIANGLE 0N=16; SAWTOOTH 0N=32; 

LE PULSE 0N=64 (SET WIDTH!); NOISE 0N=128 IL 

FJ'9070 WF%=32 NP 

LE-9075 G%=1 OR WF2:UG%=G% AND 254 EJ 

•9077 REM JD 

IF '9078 REM SET PULSE WIDTH MG 

•9079 REM LOW BYTE, HIGH BYTE FB 

JN'9080 POKE GR~2, 200: POKE GR-1,3 HO 

NA'9096 REM JD 

•9097 REM SET UP PITCH ARRAY DK 

JB^9098 REM EACH NOTE, IN ALL ITS OCTAVES JB 

EE*9099 REM C NE 

Ij-9100 X%=3:G0SUB 9190 BK 
NF*9101 DATA 12,1,24,2,48,4,97,8,195,16,135 

PC .33,15.67,30,134 IF 

FF*9102 REM D NH 

FC'9103 X%=4:G0SUB 9190 PH 
CF-9104 DATA 45,1,90,2,180,4,104,9,209,18,1 

JD 62,37,69,75,139,150 PA 

FD-9105 REM E (F-FLAT) MH 

JD*9106 X%=5:G0SUB 9190:Y%=13:GOSUB 9195 DN 
JI«9107 DATA 81,1,163,2,71,5,143,10,31,21,6 

PB 2,42,125,84,250,168 HM 

JD*9108 REM F (E-SHARP) DB 

FE-9109 X%=6:G0SUB 9190:Y%=19:GOSUB 9195 GE 

•9110 DATA 102,1,204,2,152,5,48,11,96,22, 

OK 193,44.131,89,6,179 IL 

JL'9111 REM G NI 

DL*9112 X%=7:G0SUB 9190 AO 
jD-9113 DATA 145,1,35,3,71,6,143,12,30,25,6 

PJ 0,50,121,100,243.200 GM 

•9114 REM A NC 

GA-9115 X%=1:G0SUB 9190 PA 

KF'9116 DATA 195,1,134,3,12,7,24,14,49,28,9 

JD 9,56.199,112,143,225 PI 

NH'9117 REM B NF 



9118 X%=2:G0SUB 9190 PF 

9119 DATA 250,1,244,3,233,7,210,15,165,3 
1,75,63,151,126,46,253 CF 

9120 REM D-FLAT (C-SHARP) JL 

9121 X%=11:G0SUB 9190:Y%=17:GOSUB 9195 NN 

9122 DATA 28,1,56,2,112,4,225,8,195,17,1 
34,35.12,71,24,142 KJ 

9123 REM E~FLAT (D-SHARP) FD 

9124 XZ=12:G0SUB 9190:Y%=18:GOSUB 9195 LD 

9125 DATA 62,1,125,2,251.4.247,9,239,19, 
223,39,191,79,126,159 FB 

9126 REM G-FLAT (F-SHARP) HH 

9127 X%=14:G0SUB 9190:Y%=20:GOSUB 9195 HK 

9128 DATA 123,1,246,2,237.5.218,11,181,2 
3,107,47,214,94,172,189 HG 

9129 REM A-FLAT (G-SHARP) HE 

9130 X%=8:G0SUB 9190:Y%=21:GOSUB 9195 GN 

9131 DATA 169,1,83,3,167,6,78,13,156,26, 
57,53,115,106,230,212 PA 

9132 REM B-FLAT (A-SHARP) FP 

9133 X%=9:G0SUB 9190:Y%=15:GOSUB 9195 DD 

9134 DATA 221,1,187,3,119,7,239,14,223,2 
9,190,59,124,119,248,238 CN 

9135 REM C-FLAT CH 

9136 X%=10:GOSUB 9190 DL 

9137 DATA 4,1.250,1,244,3,233,7,210,15,1 
65,31,75,63,151,126 AK 

9138 REM B-SHARP IN 

9139 X%=16:G0SUB 9190 CJ 

9140 DATA 24,2,48,4,97,8,195.16,135,33,1 
5,67,30,134,255,255 NM 
9150 FOR 1=0 TO 147 STEP 21:PI%(I,0)=0:? 
I%(I,1)=0:NEXT CM 
9185 GOTO 9200 FM 

9189 REM READ PITCHES NA 

9190 FOR 1=0 TO 147 STEP 21:READ PI%(I+X 
%,0),PI%(I+X%,1):NEXT:RETURN FN 

9194 REM IDENTICAL PITCHES GA 

9195 FOR 1=0 TO 147 STEP 21:PI%(I+Y%,0)= 
PI%(I+X%,0):PI%(I+Y%,1)=PI%(I+X%,1) LN 

9196 NEXT: RETURN EJ 

9197 REM JD 

9198 REM SET UP DURATIONS ME 

9199 REM JD 

9200 FOR 1=0 TO 9:READ DU%(I):NEXT MB 
9205 DATA 16,32,48,64,96,128,160.192,256 
,320 PD 

9296 REM JD 

9297 REM SET FILTER AND VOLUME BN 

9298 REM FILTER FREQUENCY DE 

9299 REM LOW BYTE (0-7) X%; HIGH BYTE (0 
-255) Y% PA 

9300 X%=0:Y%=100 GD 
9305 POKE 54293, X%: POKE 54294, Y% KJ 

9308 REM FILTER ON? DD 

9309 REM VOICE 1 0N=1 FK 

9310 X%=0 FM 
9318 REM FILTER RESONANCE CE 



I 
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9335 
9337 
9338 
9339 
9340 
9345 
9496 
9497 
9498 
9509 
9510 
9514 
9515 
9516 



9319 REM PEAK VOLUME (0=LOW, 15=HIGH) 

9320 Y%=14 

9325 Y%=yZ*16:P0KE 54295, X% OR Y% 

9328 REM SELECT FILTER TYPE 

9329 REM L0W-PASS=1;BAND-PASS=2; HIGH-PAS 
S=4 ; L0-BAND=3 ; HI-BAND=6 ; ALL=7 

9330 X%=1 
X%=X%*16 
REM 

REM SELECT OVERALL VOLUME 
REM 15=HIGH, 0=LOW 
Y%=15 

POKE 54296, X% OR Y% 
REM 

REM SET MELODY 
REM 

REM HOW MANY PHRASES? (MINUS ONE) 
ES%=5 
REM 

REM MELODY STRINGS 
REM 

9517 REM EACH PHRASE HAS ONLY ONE DU%(PH 
%) STRING, NO MATTER HOW MANY VOICES 

9518 REM EACH PHRASE HAS ONE ME$(PH%,VC% 
) & ONE MV$(PH%,VC%) STRING PER VOICE 

9519 REM PHRASE 

9520 MD$(0)="[9"0"]4[9"0"]4" 

9521 ME$(0)="G[s F]GE[s D]ECBCGEFGABCDEF 
D" 

9522 MV$(0)="6[6" "]565[5" "]6[4" "]" 

9529 REM PHRASE 1 

9530 MD$( 1 )=" [9"0" ]4[8"0" ]6" 

9531 ME$(l)="FEFD[s C]DB[s A]BGG[s F]GAG 
FEDC" 

9532 MV$(1)="6[5" "]5[3" "]6[8" "]" 

9539 REM PHRASE 2 

9540 MD$(2)="[7"0"]15[7"0"]15" 

9541 ME$(2)="GC@GC@GC@GCDCB@CD@" 

9542 MV$(2)="34 34 34 34 3 4 " 

9549 RM PHRASE 3 

9550 MD$(3)="[7"0"]15[7"0"]15" 

9551 ME$(3)="GB@GB@GB@GBCBA@BC@" 

9552 MV$(3)="3[10" "]43[3" "]4 " 

9559 REM PHRASE 4 

9560 MD$(4)="[9"1"]5[9"1"]5" 

9561 ME$(4)="[3"D"1[3"A"][3"C"]B[3"D"][3 
"A"][3"C"1B" 

9562 MV$(4)="5 4 5 45 4 5 4" 

9569 REM PHRASE 5 

9570 MD$(5)="[9"1"]5[8"1"]8" 

9571 ME$(5)="[3"D"][3"A"][3"C"]BD[s C]DE 
DCBAG" 

9572 MV$(5)="5 4 5 45[5" 

9898 REM CONVERT STRINGS TO 

9899 REM 

9900 FOR PH=0 TO ES% 
9905 A$=ME$(PH):ME$(PH)="" 
9910 FOR 1=1 TO LEN(A$) 



"]4 " 
USABLE FORM 



FH 
JL 
MG 
CP 

MH 
FP 
LC 
JD 
FJ 
PB 
JK 
HN 
JD 
EJ 
JD 
MA 
KC 
JD 
JJ 
JD 

CE 

NB 
IP 
FA 

NL 
HN 
10 

NA 

OF 
PF 
JB 
PN 
AO 
FO 
JA 
EO 
AA 
PM 
JD 
PA 

IB 

LG 
JC 

KK 

KG 
AI 
IG 
JD 
EI 
JB 
OE 



9920 X%=ASC(MID$(A$,I,1)) IP 

9930 IF X%<72 THEN X%=X%-64:IF X%<0 THEN 
X%=0 ED 

9931 IF X%>192AND X%<200 THEN X%=X%-178 GP 

9932 IF X%=176 THEN X%=8 IF 

9933 IF X%=191 THEN X%=9 FN 

9934 IF X%=188 THEN X%=10 II 

9935 IF X%=172 THEN X%=11 IM 

9936 IF X%=177 THEN X%=12 LA 

9937 IF X%=187 THEN X%=13 IE 

9938 IF X%=165 THEN X%=14 HL 

9939 IF X%>21 THEN X%=0 DL 

9940 V$=MID$(MV$CPH),I,1):IF V$<>" " THE 

N Y%=21*VAL(V$) U 

9950 X%=X%+Y% MJ 

9970 ME$(PH)=ME$(PH)+CHR$(X%) CP 

9975 NEXT: NEXT EF 

9980 PH=0 HP 

9990 RETURN IM 

BROKEN MELODY 

1 REM "BROKEN MELODY" JC 

2 REM THREE VOICES WAIT FOR USER INPUT B 
ETWEEN PHRASES HL 

3 REM USE THIS ROUTINE FOR A SERIES OF R 
EWARDS NG 

4 REM JD 

5 REM PLAYS "I'M ON MY WAY" (FROM "PAINT 
YOUR WAGON" BY LERNER & LOEWE) MK 

6 REM JD 
10 GOSUB 9000: GOTO 100 LC 

60 FOR N=l TO LEN(MD$(PH)) FJ 

61 FOR VC=0 TO EV% GG 

62 POKE GR(VC),UG%(VC):REM NORMAL NOTES; 
DON'T POKE UG% FOR LEGATO AE 

63 FOR 1=0 TO 1 JB 

64 POKE FR(VC,I),PI%(ASC(MID$(ME$(PH,VG) 
,N,1)),I) BD 

65 NEXT: NEXT EF 

66 FOR VC=EV% TO STEP -1:P0KE GR(VC),G 
%(VC):NEXT MB 

67 FOR 1=0 TO DU%(VAL(MID$(MD$(PH),N,1)) 
):NEXT JB 

68 REM FOR VC=0 TO EV%:POKE GR(VC),UG%(V 
C): NEXT: REM STACCATO NOTES BO 

69 NEXT:PH=PH+1:IF PH>ES% THEN PH=0 I J 

70 FOR VC=0 TO EV%:POKE GR(VC),UG%(VC):N 
EXT: RETURN EP 
If/J PRINT "PRESS SHIFT FOR PHRASE "PH JB 
110 PRINT "ANY OTHER KEY TO STOP" LG 
120 IF PEEK(203)<>64 THEN END DG 
130 IF PEEK(653)=0 THEN 120 GC 
140 GOSUB 60 PC 
190 GOTO 100 CF 

8997 REM JD 

8998 REM SET UP SOUND SHAPE FD 

8999 REM JD 

9000 DIM MD$(23),ME$(23,2),MV$(23,2),G%( 
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I 



iN 



IP 

ED 
GP 
IF 
FN 
II 
IM 
LA 
IE 
HL 
DL 

U 
MJ 
CP 
EF 
HP 
IM 



Y 



JC 



HL 



2),GRC2),FRC2,1),AD(2) CF 

•9001 DIM DU%(9),PI%(168,I),AK%(2),DY%(2) 

,SN%(2),RE%(2),WF%(2) OF 

•9007 REM JD 

•9008 REM ATTACK—VOICES 0,1,2 KG 

•9009 REM NUMBER FROM TO 15; LOWER NUMB 
ER=SHARPER ATTACK OK 

•9010 AK%(0)=0:AK%(1)=0:AK%(2)=0 CP 
•9015 FOR 1=0 TO 2:AK%(I)=AK%(I)*16:NEXT FF 
•9017 REM JD 

•9018 REM DECAY— VOICES 0,1,2 PK 

•9019 REM NUMBER FROM TO 15; LOWER NUMB 
ER=FASTER DECLINE GA 

•9020 DY%(0)=7:DY%(1)=3:DY%(2)=3 AN 
•9027 REM JD 

•9028 REM SUSTAIN— VOICES 0,1,2 FC 
•9029 REM NUMBER FROM TO 15; LOWER NUMB 
ER^SOFTER VOLUME DURING SUSTAIN JM 
•9030 SN%(0)=0:SN%(1)=0:SN%(2)==0 EG 
•9035 FOR 1=0 TO 2:SN%(I)=SN%(I)*16:NEXT BD 
•9037 REM JD 

•9038 REM RELEASE— VOICES 0,1,2 OK 
•9039 REM NUMBER FROM TO 15; LOWER NUMB 

PJ 
BG 
JD 
JC 
JD 

PG 



ER=FASTER DROP TO SILENCE AT END 
[ ^9040 RE%C0)=0:RE%(1)=3:RE%(2)=5 
NG ^9047 REM 

JD ^gOAB REM SET SOUND ADDRESSES 
•9049 REM 

MK -9050 FR(0,0)=54272:FR(1,0)=54279:FR(2,0) 
JD =54286 

LC^9055 FOR 1=0 TO 2:FR(I,1)=1+FR(I,0):GR(I 
FJ )=FR(I,0)+4:AD(I)=GR(I)+1:NEXT HJ 
GG*9057 REM jD 

•9058 REM POKE ADSR ENVELOPES JL 

AE-9059 REM jD 

JB-9060 FOR 1=0 TO 2:P0EE AD(I),AT%(I) OR D 

Y%(I) EN 

9065 POKE AD(I)+1,SN%(I) OR RE%(I):NEXT DK 
EF^9066 REM jD 

•9067 REM SET UP GATES JN 

MB •9068 REM WAVEFORMS, VOICES 0,1,2 (ADD VA 

LUES): DJ 

JB*9069 REM TRIANGLE 0N=16; SAWTOOTH 0N=32; 

PULSE 0N=64 (SET WIDTH!); NOISE 0N=128 IL 
BO-9070 WF%(0)=32:WF7o(l)=64:WF%(2)=64 LH 
IJ^9075 FOR 1=0 TO 2:G%(I)=1 OR WF%(I):UG%( 

I)=G%(I)AND 254:NEXT AB 

EP«9077 REM jD 

JB*9078 REM SET PULSE WIDTHS AC 

LG^9079 REM VOICES 0,1,2; LOW BYTE, HIGH BY 
DG TE MG 

GC-9080 POKE GR(0)-2,200:POKE GR(0)-1,3 JD 
PC-9081 POKE GR(l)-2, 200: POKE GR(1)-1,3 LD 
CF^9082 POKE GR(2)-2,200:POKE GR(2)-1,3 EP 
JD'9096 REM jD 

FD^9097 REM SET UP PITCH ARRAY DK 

JD^9098 REM EACH NOTE, IN ALL ITS OCTAVES JB 
•9099 REM C NE 



BD 



•9ir/j X%=3:G0SUB 9190 BK 

•9101 DATA 12,1,24,2,48,4,97,8,195,16,135 

,33,15,67,30,134 IF 

•9102 REM D NH 

•9103 X%=4:G0SUB 9190 PH 

•9104 DATA 45,1,90.2,180,4,104,9,209,18,1 

62,37,69,75,139,150 PA 

•9105 REM E (F-FLAT) MH 

•9106 X%=5:G0SUB 9190:Y%=13:GOSUB 9195 DN 
•9107 DATA 81,1,163,2,71,5,143,10,31,21,6 



2,42,125,84,250,168 HM 

•9108 REM F (E-SHARP) DB 

•9109 X%=6:G0SUB 9190:Y%=19iG0SUB 9195 GE 
•9110 DATA 102,1,204,2,152,5,48,11,96,22, 
193,44,131,89,6,179 XL 

•9111 REM G NI 

•9112 X%=7:G0SUB 9190 AO 

•9113 DATA 145,1,35,3,71,6,143,12,30,25,6 
0,50,121,100,243,200 GM 

•9114 REM A NO 

•9115 X%=1:G0SUB 9190 PA 

•9116 DATA 195,1,134.3,12,7,24,14,49,28,9 
9,56,199,112,143.225 PI 

•9117 REM B NF 

•9118 X%=2:G0SUB 9190 PF 

•9119 DATA 250,1,244,3,233,7,210,15,165,3 
1,75,63,151,126,46,253 CF 

•9120 REM D-FLAT (C-SHARP) JL 

•9121 X%=11:G0SUB 9190:Y%=17:GOSUB 9195 NN 
•9122 DATA 28.1,56,2,112,4,225,8,195,17,1 
34,35,12,71,24,142 KJ 

•9123 REM E-FLAT (D-SHARP) FD 

•9124 X%=12:G0SUB 9190:Y%=18:GOSUB 9195 LD 
•9125 DATA 62,1,125.2,251.4,247,9.239,19, 
223,39,191,79,126,159 FB 

•9126 REM G-FLAT (F-SHARP) HH 

•9127 X%=14:G0SUB 9190:Y%=20:GOSUB 9195 HK 
•9128 DATA 123,1,246,2.237,5,218,11,181,2 
3,107,47,214,94,172,189 HG 

•9129 REM A-FLAT (G-SHARP) HE 

•9130 X%=8:G0SUB 9190:Y%=21:G0SUB 9195 GN 
•9131 DATA 169,1,83,3,167,6,78,13,156,26, 
57,53,115,106,230,212 PA 

•9132 REM B-FLAT (A-SHARP) FP 

•9133 X%=9:G0SUB 9190:Y%=15:G0SUB 9195 DD 
•9134 DATA 221,1,187,3,119,7,239,14,223,2 
9,190,59,124,119,248,238 CN 

•9135 REM C-FLAT QH 

•9136 X%=10:G0SUB 9190 DL 

•9137 DATA 4,1,250,1,244,3,233.7,210,15,1 
65,31,75,63,151,126 AK 

•9138 REM B-SHARP IN 

•9139 X%=16:G0SUB 9190 CJ 

•9140 DATA 24,2,48,4,97,8,195,16,135.33,1 
5,67,30,134.255,255 NM 

•9185 GOTO 9200 m 

•9189 REM READ PITCHES NA 

•9190 FOR 1=0 TO 147 STEP 21:READ PI%(I+X 

AHOY! 93 



%,0),PI%(I+X%,1):NEXT:RETURN FN 

9194 REM IDENTICAL PITCHES GA 

9195 FOR I-O TO 147 STEP 21:PI%CI+Y%,0)= 



PI%(I+X%,0):PI%(I+YZ,1)=PI%(I+X%,1) 

9196 NEXT: RETURN 

9197 REM 

9198 REM SET UP DURATIONS 

9199 REM 

9200 FOR 1=0 TO 9: READ DU%(I):NEXT 

9205 DATA 10,128,256,384,512,640,768,102 
4,1152,1280 

9296 REM 

9297 REM SET FILTER AND VOLUME 

9298 REM FILTER FREQUENCY 

9299 REM LOW BYTE (0-7) X%t HIGH BYTE (0 
-255) Y5S 

9300 X%=0:Y%=100 

93fj5 POKE 54293, X%: POKE 54294, Y% 

9308 REM FILTER ON? 

9309 REM VOICE 1 0N=1; 2 0N=2; 3 0N=4; 1 
&2 0N=3; 2&3 0N=6; ALL 0N=7 

9310 X%=0 

9318 REM FILTER RESONANCE 

9319 REM PEAK VOLUME (rj=L0W, 15=HIGH) 

9320 n=iu 

9325 Y%=Y%*16:P0KE 54295, X% OR Y% 

9328 REM SELECT FILTER TYPE 

9329 REM L0W-PASS=1;BAND-PASS=2; HIGH-PAS 



S=4 ; L0-BAND=3 ; HI-BAND=6 ; ALL=7 
9330 X%=1 
9335 X%=X%*16 

9337 REM 

9338 REM SELECT OVERALL VOLUME 

9339 REM 15=HIGH, -<)=LOM 

9340 Y%=15 
9345 POKE 54296, X% OR Y% 

9496 REM 

9497 REM SET MELODIES HERE 

9498 REM 

9499 REM HOW MANY VOICES? (MINUS ONE) 

9500 EVZ=2 

9508 REM 

9509 REM HOW MANY PHRASES? (MINUS ONE) 

9510 ES%=8 

9514 REM 

9515 REM MELODY STRINGS 

9516 REM 

9517 REM EACH PHRASE HAS ONLY ONE DU%(PH 
) STRING, NO MATTER HOW MANY VOICES 

9518 REM EACH PHRASE HAS ONE ME$(PH,VC) 
& ONE MV$(PH,VC) STRING PER VOICE 

9519 REM PHRASE 

9520 MD$(0)="[16"0"1" 

9521 ME$(0,0)="[3"F"]GAFG^[3"F"]GAFGE" 

9522 MV$(0,0)="6[15" "]" 

9523 ME$(0,1)="CCDCGD[4"C"3DCGDCC" 

9524 MV$(0,1)="4545354545453545" 



LN 
EJ 
JD 
ME 
JD 
MB 

KF 
JD 
BN 
DE 

PA 
GD 
KJ 
DD 

AL 
FM 
CE 
FH 
JL 
MG 
CP 

MH 
FP 
LC 
JD 
FJ 
PB 
JK 
HN 
JD 
PA 
JD 
GN 
KA 
JD 
MA 
KH 
JD 
JJ 
JD 

AO 

IP 
IP 
LE 
AD 
KK 
JN 
PG 



9525 ME$(0,2)="FAEAGBC[c B]FADAGBC[c B]" NH 
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•9526 MV$(0,2)="3434343434343434" GH 

•9529 REM PHRASE 1 10 

•9530 MD$(1)="[16"0"]" KL 

•9531 ME$(1,0)="[3"F"]GAFGEF[7"@"]" OL 

•9532 MV$(1,0)="6[15" "]" NL 

•9533 ME$(1,1)="FCECDBCCFCECDACA" PJ 

•9534 MV$(1,1)="45454 545454 5" JH 

•9535 ME$(l,2)="FAEADBC[c B]FAEADFCF" CM 

•9536 MV$( 1,2) ="3434343434343435" DH 

•9539 REM PHRASE 2 JB 

•9540 MD$(2)="[16"0"]" LC 
•9541 ME$(2,0)="[3"[c B]"]CD[c B]C@[3"[c 

B]"]CD[c B]CA" IL 

•9542 MV$(2,0)="6 7 67 6 7 676" GM 

•9543 ME$(2,l)="@F@FCGFF@FiaFCGFF" MD 

•9544 MV$(2,1)=" 5 4545[4" "]4545" HE 
•9545 ME$(2,2)="[c B]DGDCEF[c E][c B]DGDC 

EF[c E]" KA 

•9546 MV$(2,2)="3535353535353535" KB 

•9549 REM PHRASE 3 JA 

•9550 MD$(3)="[14"0"]" CM 
•9551 ME$(3,0)="[3"[c B]"]CD[c B]CA[c B][ 

5"@"]" MC 

•9552 MV$(3,0)="6 7 676[6" "]" MA 

•9553 ME$(3,l)="[c B]FAFGEFF[c B]FAFGF" JM 

•9554 MV$(3,1)="45454545454545" LF 
•9555 ME$(3,2)="[c B]DADGCF[c E][c B]DADG 

D" MA 

•9556 MV$(3,2)="35353535353535" NJ 

•9559 REM PHRASE 4 JD 

•9560 MD$(4)="[16"0"]" DA 
•9561 ME$(4,0)="F[c B]C§C[3"@"]D[c B]C[5" 

§"]" PF 

•9562 MV$(4,0)="6 7[6" "]67[5" "]" CF 
•9563 ME$(4,l)="[3"F"]AG[c B]AADGFAG[c B] 

AA" NK 

•9564 MV$(4,1)="45454545 4 54545" LH 

•9565 ME$(4,2)="FDFFGEAF[c B][3"F"]GEAF" JH 

•9566 MV$(4,2)="3535353534353535" DK 

•9569 REM PHRASE 5 JC 

•9570 MD$(5)="[18"0"]" AO 

•9571 ME$(5,0)="CFG@G@@GAFG[7"@"]" EC 

•9572 MV$(5,0)="6[17" "]" OG 

•9573 ME$(5,1)="@BGEGFGE@BFECCAFGC" MA 

•9574 MV$(5,1)=" 4 54545 4 5453[3" "]" NN 

•9575 ME$(5,2)="@AECDBECGACFC[c BJAFGF" BI 

•9576 MV$(5,2)=" 4 54 534343 2 1" MA 

•9579 REM PHRASE 6 JF 

•9580 MD$(6)="[16"0"]" NO 

•9581 ME$(6,0)="[3"F"]GAFG@[3"F"]GAFGE" OB 

•9582 MV$(6,0)="6[15" "]" NA 

•9583 ME$(6,1)="CCDCGD[4"C"]DCGDCC" KD 

•9584 MV$(6,1)="4545354545453545" EM 
•9585 ME$(6,2)="FAEAGBC[c B]FADAGBC[c B]" ON 

•9586 MV$(6,2)="3434343434343434" FF 

•9589 REM PHRASE 7 JE 

•9590 MD$(7)="[15"0"1" IE 

•9591 ME$(7,0)="[3"F"]GAFGEC[3"@"]C@@" IG 



GH 

10 

KL .9592 MV$(7,0)="6[11" "]7 " 

OL .9593 ME$(7,l)="FCECDBCC@A@tc B]CF@" 

NL .9594 MV$(7,1)="45454 5 4 5" 

PJ .9595 ME$(7,2)="FAEADBC[c B]FFGRA[c E]@" 

JH -9596 MV$(7.2)="34343434343435 " 

9599 REM PHRASE 8 

9600 MD$(8)="[17"0"]" 

9601 ME$(8,0)="DC@C[c B]AFGDF[3"@"]F[3"@ 
"1" KN 

9602 MV$(8,0)="7[3" "]6[8" "]7[3" "]" BN 

9603 ME$(8,l)="[c B]CACA@C@CFDC[c B]A@F@ 
" CL 

9604 MV$(8,1)="5[8" "]46 5 4" CA 



CM 
DH 

JB 
LC 

IL 
GM 
MD 



LF 
BP 
AL 
MK 
LM 
JH 
EG 



HE .9605 ME$(8,2)="DCFCFCAC[c B]F[c B]AGF@F@ 



IMPflRTANTI Letters on white background are Bug Repellent line codes. Do not enter themi Pages 85 and 86 explain these codes 
I If 1 1 Ullinil I • and provide other essential information on entering 4hoy.' programs. Refer to these pages before entering any programs! 

EAR][10"[DOWN]"][6" "] LOADING EPSON/GEMI 
NI VERSION" CL 

•70 IFASC(A$)=134THENB$="QP C*": PRINT" [CL 
EAR][10"[D0WN]"][5" "] LOADING COMMODORE 
1526 VERSION" NL 

•75 IFB$=""THEN50 PN 

•80 POKE53280,6:POKE53281,14:PRINT"[H0ME] 
[c 7][3"[DOWN]"]LOAD"CHR$(34)B$CHR$(34)" 
.8" FO 

• 90 PRINT" [ HOME ] " : P0KE198 , 5 : F0RX=0T04 : REA 
DA:P0KE631+X,A:NEXT:END CO 

•500 DATA13,31,82,213,13 GO 

1526 VERSION 

•5 PRINT"[CLEAR][4"[D0WN]"][8" "jINITIALI 
ZING[3"."]" CE 

•10 G0SUB570 CM 

• 20 P0KE53280 , : POKE53281 .0: P0KE646 , 15 : PR 
INT" [ CLEAR ] [ DOWN ] [ DOWN ] [ 1 2" " ] QUAD-PRINT 

1526" EF 

•30 DIMB$(4): PRINT" [DOWN] [9" "](C) 1984 B 
Y M. BEUTJER" KK 

•40 IFB=0THENB=1:G0T070 MM 

•50 PRINT" [CLEAR] [DOWN] PIC 1 (UPPER LEFT 
) : "B$(1):PRINT" PIC 2 (UPPER RIGHT) : 
"B$(2) MF 

•60 PRINT" PIC 3 (LOWER LEFT ) : "B$(3):P 
RINT" PIC 4 (LOWER RIGHT) : "B$(4) EP 
•70 PRINT" [ DOWN ][ RIGHT ][RVSON] Fl = DISP 
LAY 1 [RVS0FF][5" "][RVSON] F2 = LOAD 1 
[3" "]" NN 

•80 PRINT" [DOWN] [RIGHT] [RVSON] F3 = DISP 
LAY 2 [RVS0FF][5" "] [RVSON] F4 = LOAD 2 
[3" "]" FJ 

•90 PRINT"[DOWN] [RIGHT] [RVSON] F5 = DISP 
LAY 3 [RVS0FF][5" "] [RVSON] F6 = LOAD 3 
[3" "]" PB 

•100 PRINT"[DOWN] [RIGHT] [RVSON] F7 = DIS 
PLAY 4 [RVS0FF][5" "] [RVSON] F8 = LOAD 
4[3" "]" CF 

•110 PRINT" [DOWN] [RIGHT] [RVSON] [EP] = 
DUMP POS [RVS0FF][5" "] [RVSON] [BACKAR 
ROW] = DUMP NEG " DM 

•120 PRINT"[D0WN][RIGHT][5" "][RVS0N][3" 
"]* = QUICK VIEW SCREENS " OC 

•130 PRINT"[D0WN][RIGHT][5" "] [RVSON] [3" 
"]@ = SWAP SCREENS [7" "]" HI 

•140 PRINT"[D0WN][RIGHT][5" "] [RVSON] [3" 
"][UPARROW] = SINGLE PRINT[7" "] [DOWN]" IK 
•150 GETA$:IFA$<>""THEN150 AO 

•160 GETA$:IFA$=""THEN160 HK 

•170 A=ASC(A$) GE 

•180 IFA=92THENSYS492O9:G0TO40 EG 

•190 IFA=95THENSYS49205:G0T040 GL 

• 200 IFA=42THENA=1 : G0SUB540 : SYS49430: SYS4 
9188:G0T0300 BD 

AHOY! 95 



•9932 
■9933 
■9934 
■9935 
■9936 
■9937 
■9938 
■9939 



KAl 
KB 
JA 
CM 

MC 
MA 
JM 
LF 

MA 
NJ 
JD 
DA 

PF 
CF 

NK 

LH 

JH 

DK 

JC 

AO 

EC 

OG 

MA 

NN 

BI 

MA FROM PAGE 47 MENU 

JF -5 PRINT" [CLEAR] [DOWN] [RVSON] [BLACK] QUAD 

NO PRINT (C) 1984 BY MICHAEL BEUTJER " AH 

OB •lO P0KE55,0:P0KE56,28 CE 

NA '20 PRINT"[3"[D0WN]"][WHITE]SELECT YOUR P 

KD RINTER TYPE. [DOWN] [DOWN]" PN 

EM '30 PRINT"PRESS Fl FOR EPSON RX/FX 80 OR 

ON 100." PH 

FF '40 PRINT"[DOWN]PRESS F3 FOR COMMODORE 15 

JE 26." PE 

IE '50 GETA$:IFA$=""THEN50 FO 

IG '60 IFASC(A$)=133THENB$="QP E*":PRINT"[a 



9606 MV$(8,2)="545354 3435[4" "]3 " 

9897 REM 

9898 REM CONVERT STRINGS TO USABLE FORM 

9899 REM 

9900 FOR PH=0 TO ES%:FOR VC=0 TO EV% 
9905 A$=ME$(PH,VC) :ME$(PH,VC)="" 
9910 FOR 1=1 TO LEN(A$) 
9920 X%=ASC(MID$(A$,I,1)) 

9930 IF X%<72 THEN X%=X%-64:IF X%<0 THEN 
X%=0 

9931 IF X%>192AND X%<200 THEN X%=X%-178 
IF X%=176 THEN X%=.8 
IF X%=191 THEN X%=9 
IF X%=188 THEN X%=10 
IF X%=172 THEN X%=11 
IF X%=177 THEN X%=12 
IF X%=187 THEN X%=13 
IF X%=165 THEN X%=14 
IF X%>21 THEN X%=0 

9950 V$=MID$(MV$(PH,VC),I,1):IF V$<>" " 

THEN YZ=21*VAL(V$) 

9960 IF X%<>0 THEN X%=.X%+Y% 

9970 ME$ (PH , VC)=ME$ (PH , VC)+CHR$(X%) 

9975 NEXT: NEXT: NEXT 

9980 PH=0 

9990 RETURN 



EB 
JH 
JD 
IG 
JD 
AH 
EC 
OE 
IP 

ED 
GP 
IF 
FN 
II 
IM 
LA 
IE 
HL 
DL 

PG 
CK 
OC 
PI 
HP 
IM 



210 IFA=64THEN330 CL 

220 IFA=94THEN550 DI 

230 IFA<133THEN160 EE 

240 IFA>140THEN160 FK 

250 A=A-132:IFA>4THENGOSUB460:GOT040 IB 
260 G0SUB540:SyS49430:SYS49188 MC 
270 GETA$:IFA$<>""THEN270 DB 

280 GETA$:IFA$=""THEN280 HJ 

290 SYS49188:G0T040 OB 

y/j GETA$: A=ASC(A$+CHR$(0)) :IFA=32THENSY 
S49188:G0T040 HO 

310 IFA<1330RA>136THEN300 MB 

320 A=A-132:GOSUB540:SYS49430:GOT0300 BI 
330 PRINT"ENTER THE NUMBERS OF THE SCREE 
NS" JB 

340 PRINT"yOU WANT TO SWAP (1-4)." NL 
350 INPUT" 1ST SCREEN : ";A IC 

360 INPUT" 2ND SCREEN : ";B HP 

370 IFA<10RA>40RB<10RB>4THEN330 IJ 
380 GOSUB540:SYS49430 AJ 

390 P0KE49153,16*(2+A*2):P0KE49152,16*(2 
+B*2) AN 

400 POKE49155,224+(B-l)*4:POKE49154,224+ 
(A-l)*4 LK 

410 SYS49430 JI 

420 POKE49152,32:POKE49153.16*(2+B*2):PO 
KE49155,224+(A-1)*4:P0KE49154,4 JE 
430 SYS49430 JI 

440 A$=B$(A):B$(A)=B$(B)iB$(B)=A$ JG 
450 G0T040 PE 

460 REM GET FILENAME AND LOAD IT. NO 
470 A=A-4: PRINT" ENTER FILENAME OF PIC" A 
": ";:INPUTA$ AB 

480 IFLEN(A$)>16THEN470 JM 

490 B$(A)=A$ AE 

500 P0KE49156,LEN(A$) :P0KE49152,32:P0KE4 
9153,16*(2+A*2) OF 

520 F0RX=1T0LEN(A$) :P0KE49156+X, ASC(MID$ 
(A$,X,1)):NEXT NF 

530 SYS49394:P0KE49155,224+(A-1)*4:P0KE4 
9154,28:SYS49430:RETURN NB 

540 POKE49153,32:POKE49152,16*(2+A*2):PO 
KE49154,224+(A-1)*4:P0KE49155,4:RETURN MC 
550 INPUT"ENTER NO. OF PICTURE TO PRINT 
(1-4) : ";A 



555 PRINT"PRESS P FOR POSITIVE, N FOR NE 

GATIVE " 

560 GETA$ : IFA$<"N"0RA$>"P"THEN560 

562 P=49788 : IFA$="P"THENP=49792 

565 P0KE49152,16*(2+A*2):SYSP:G0T040 

570 1=49152 

580 READ A: IF A=256 THEN RETURN 

590 POKE I,A:I=I+1:G0T0580 

600 DATA 0,0,0,0,0,60,162,0 

610 DATA 32,126,197.169,76,44,169,96 

620 DATA 133,138,169,44,133,0,0,0 

630 DATA 0,0,0,0,0,0.0,0 

640 DATA 0,0,0,0,173,17,208,73 

96 AHOY! 



NB 

DO 
CF 
DF 
PB 
AJ 
HN 
CD 
OH 
LH 
MD 
FG 
II 



650 DATA 32,141,17,208,173,24,208,73 IK 

660 DATA 8,141.24,208,96,169,255,208 NP 

670 DATA 2,169,0,141,33,192,32,117 ND- 

680 DATA 193,169,0,133,251,169,64,133 EM 

690 DATA 252,169,0,141,32,192,169,96 KH 

700 DATA 141,31,192,169,25,141,29,192 HJ 

710 DATA 32,121,192,169,0,133,251,169 DD 

720 DATA 128.133,252.169,0,141,32,192 DH 

730 DATA 169.160,141,31,192,169,25,141 GD 

740 DATA 29,192,32,121,192,32,45,194 lA 

750 DATA 96,32,197,193,32,178,192,165 01 

760 DATA 251,72,165,252,72,173,32,192 CE 

770 DATA 133,251,173.31,192,133,252,32 PE 

780 DATA 178,192,165,251,141,32,192,165 HF 

790 DATA 252,141.31.192,104,133,252,104 PH 

800 DATA 133,251.32.225,255,208.5,104 DG 

810 DATA 104,76,117.192,206,29,192,208 LP 

820 DATA 200,96,169,40,141,30,192,160 EM 

830 DATA 0,162,0,120,169.46,133,1 LJ 

840 DATA 177,251,141,34,192,169,47,133 PH 

850 DATA 1,88,14,34,192,62,21,192 LJ 

860 DATA 232,224,8,208,245,200,192,8 EE 

870 DATA 208,223,24,165,251.105,8,133 HJ 

880 DATA 251.165,252,105,0,133,252,162 DN 

890 DATA 0,32,219,193,206,30,192,208 HL 

900 DATA 198,96,169,1,162,8,160.0 ED 

910 DATA 32,186,255,173,4,192,162,5 JD 

920 DATA 160,192,32,189,255,169,0,170 LP 

930 DATA 160,28,32,213,255,169,1,32 DO 

940 DATA 195,255,32,204,255,96,160,0 JC 

950 DATA 132,251,174,1,192,134,252,132 OJ 

960 DATA 253,174,0,192.134,254,142,34 FG 

970 DATA 192,238.34.192,200,192,32,208 NA 

980 DATA 248,160.0,120.169,46,133,1 FE 

990 DATA 177,253.145,251,169.47,133,1 GD 
1000 DATA 88,200.208,239.230.252,230.254 LG 
1010 DATA 165.254,205,34.192.208,228,173 EE 

1020 DATA 3,192,133.252,173,2,192,133 AB 

1030 DATA 254.162,4.120,169,40,133,1 HP 
1040 DATA 177.253,145,251.200,208.249,23 

GL 
1050 DATA 252,230,254,202,208,242.169,47 GG 

1060 DATA 133,1,88.96.0,169,4,170 MB 

1070 DATA 160,255,32,186,255,169,0,32 I A 

1080 DATA 189,255,32,192,255,176,40,169 NE 

1090 DATA 6,168,162,4,32,186,255,169 KI 

1100 DATA 0,32,189,255,32,192,255,176 PK 

1110 DATA 22,169,5,168,162,4,32,186 AK 

1120 DATA 255,169,0,32,189,255,32,192 EG 

1130 DATA 255,176,4,32,176,193,24,96 CB 

1140 DATA 162,6,32,201,255,169,21,32 KH 

1150 DATA 210,255,169,13,32,210,255,32 FL 

1160 DATA 174,255.32,204,255,162.4,32 DD 

1170 DATA 201,255.169,13,32,210,255,32 DJ 

1180 DATA 174,255,32,204,255,169,0,141 DO 

1190 DATA 116,193,96,32,93,194,240,105 KC 

1200 DATA 162,4,32,201,255,169,141,32 FK 

1210 DATA 210,255,32,174,255,32,204,255 DM 



I 



^ 



IK 

NP 



■122 
123i 



ND' 124 



EM 
KH 
HJ 
DD 
DH 
GD 
lA 
01 
CE 
PE 
HF 
PH 
DG 
LP 
EM 
LJ 
PH 
LJ 
EE 
HJ 
DN 
HL 
ED 
JD 



1251 
1261 
127 
128i 
129i 
1300 
131 
132 
133 
134 
135 
1360 
137 
138 
39 
400 
141 
142 
143 
144i 
1451 



DO 
JC 
OJ 

FG 
NA 
FE 
GD 
54 LG 
r3EE 
AB 
HP 

n 

GL 
17 GG 



DATA 162,5,32,201,255,162,0.189 AH 

DATA 21,192,77,33,192,32,210,255 LN 

DATA 232,224,8,208,242,32,174,255 NN 

DATA 162,4,32,201,255,174,116,193 JJ 

DATA 240,9,169,32,32,210,255,202 FE 

DATA 76,16,194,238,116,193,169,254 DI 

DATA 32,210,255,32,174,255,32,204 GJ 

DATA 255,32,109,194,96,32,197,193 IE 

DATA 162,6,32,201,255,169,24,32 MC 

DATA 210,255,169,13,32,210,255,32 FL 

DATA 174,255,32,204,255,32,231,255 MJ 

DATA 96,162,4,32,201,255,169,254 OJ 

DATA 32,210,255,32,174,255,32,204 GJ 

DATA 255,238,116,193,96,162,0,189 CP 

DATA 21,192,221,123,194,208,5,232 PP 

DATA 224,8,208,243,96,162,0,189 FF 

DATA 21,192,157,123,194,232,224,8 JC 

DATA 208,245,96,0,169,255,208,2 MO 

DATA 169,0,141,33,192,32,117,193 LH 

DATA 169,0,133,251,173,0,192,133 LB 

DATA 252,169,25,141,29,192,32,197 OM 

DATA 193,32,178,192,32,225,255,208 CH 

DATA 3,76,169,194,206,29,192,208 IN 

DATA 237,32,45,194,96,256 NF 



EPSON/GEMINI VERSION 

*rograin as listed is for Epson printers. See introduc- 



LP |ory article for changes required for Gemini printers. 

5 PRINT"[CLEAR][4"[D0WN]"][8" "]INITIALI 
ZING[3"."]" CE 

10 G0SUB540 DB 

20 POKE53280,0:POKE53281,0:POKE646,15:PR 
INT" [ CLEAR ] [ DOWN ] [ DOWN ] [ 14" " ] QUAD-PRINT 

NE 
30 DIMB$(4):PRINT"[DOWN][9" "](C) 1984 B 
Y M. BEUTJER" KK 

40 IFB=OTHENB=1:GOT070 MM 

50 PRINT" [CLEAR] [DOWN] PIC 1 (UPPER LEFT 
) : "B$(1):PRINT" PIC 2 (UPPER RIGHT) : 
"B$(2) MF 

60 PRINT" PIC 3 (LOWER LEFT ) : "B$(3):P 
RINT" PIC 4 (LOWER RIGHT) : "B$(4) EP 
MB f70 PRINT" [DOWN] [RIGHT] [RVSON] Fl = DISP 
lA 'lay 1 [RVS0FF][5" "] [RVSON] F2 = LOAD 1 
NE ![3" "]" NN 

KI 1 80 PRINT" [DOWN] [RIGHT] [RVSON] F3 = DISP 
PK LAY 2 [RVS0FF][5" "] [RVSON] F4 = LOAD 2 
AK [3" "]" FJ 

EG>90 PRINT" [DOWN] [RIGHT] [RVSON] F5 = DISP 
CB LAY 3 [RVS0FF][5" "] [RVSON] F6 = LOAD 3 
KH [3" "]" PB 

FL '100 PRINT" [DOWN] [RIGHT] [RVSON] F7 = DIS 
DD PLAY 4 [RVS0FF][5" "] [RVSON] F8 = LOAD 
DJ 4[3" "]" CF 

DO '110 PRINT" [DOWN] [RIGHT] [RVSON] [EP] = 
KG ! DUMP POS [ RVSOFF ] [ 5" " ] [ RVSON ] [ BACKAR 
FK ROW] = DUMP NEG " DM 

DM • 120 PRINT" [DOWN ] [RIGHT ] [ 5" " ] [ RVSON ] [ 3" 



"]* - QUICK VIEW SCREENS " 00 

130 PRINT"[D0WN][RIGHT][5" "] [RVSON] [3" 
"]@ = SWAP SCREENS [7" "][DOWN]" GL 
140 GETA$:IFA$<>""THEN140 AL 

150 GETA$:IFA$=""THEN150 HN 

160 A=ASC(A$) GE 

170 IFA=92THENSYS49209:GOT040 EG 

180 IFA=95THENSYS49205:G0TO40 GL 

190 IFA=42THENA=1 : GOSUB520 : SYS49490: 3184 
9188:G0T0280 FO 

200 IFA=64THEN310 CF 

210 IFA<133THEN150 EH 

220 IFA>140rHEN150 FN 

230 A=A-132:IFA>4THENGOSUB440:GOT040 FD 
240 GOSUB520:SYS49490:SYS49188 AK 
250 GETA$:IFA$<>""THEN250 CP 

260 GETA$:IFA$=""THEN260 HH 

270 SYS49188:G0T040 OB 

280 GETA$ : A-ASC(A$+CHR$(0) ) : IFA=32THENSY 
S49188:G0T040 HO 

290 IFA<1330RA>136THEN280 LI 

300 A-A-132:GOSUB520:SYS49490:GOT0280 NP 
310 PRINT"ENTER THE NUMBERS OF THE SCREE 
NS" JB 

320 PRINT"YOU WANT TO SWAP (1-4)." NL 
330 INPUT"1ST SCREEN : ";A IC 

340 INPUT"2ND SCREEN ; ";B HP 

350 IFA<10RA>40RB<10RB>4THEN310 ID 
360 GOSUB520:SYS49490 AB 

370 P0KE49153,16*(2+A*2):P0KE49152,16*(2 
+B*2) AN 

380 P0KE49155 , 224+(B-l )*4 : P0KE49154 , 224+ 
(A-l)*4 LK 

390 SYS49490 KG 

400 POKE49152,32:POKE49153,16*(2+B*2):PO 
KE49155,224+(A-1)*4:P0KE49154,4 JE 
410 SYS49490 KG 

420 A$=B$(A):B$(A)=B$(B):B$(B)=A$ JG 
430 GOT040 PE 

440 REM GET FILENAME AND LOAD IT. NO 
450 A=A-4: PRINT" ENTER FILENAME OF PIC"A 
": ";:INPUTA$ AB 

460 IFLEN(A$)>16THEN450 JO 

470 B$(A)=A$ AE 

480 P0KE49156,LEN(A$) :POKE49152,32:POKE4 
9153,16*(2+A*2) OF 

500 F0RX=1T0LEN(A$) :P0KE49156+X, ASC(MID$ 
(A$,X,1)):NEXT NF 

510 SYS49454:P0KE49155,224+(A-1)*4:P0KE4 
9154,28:SYS49490:RETURN JO 

520 POKE49153,32:POKE49152,16*(2+A*2):PO 
KE49154,224+(A-l)*4:POKE49155,4:RETURN MC 
530 REM POKE IN ML ROUTINE DB 
540 1=49152 AJ 

550 READA:IFA=256THEN565 KA 

560 SUM=SUM+A:POKE I,A:I=I+1:G0T0550 EE 
565 IFSUM<>61145THENPRINT"ERR0R IN DATA 
STATEMENTS.": END: REM SUM=61166 FOR lOX BF 

AHOY! 97 



||y|nfl|vrjl MTI Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain ttiese codes 
llVIr Un IHIM I ! and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 

566 RETURN IM 

570 DATA 0,0,0,0,0,60,162,0 OH 

580 DATA 32.126,197,169,76,44,169,96 LH 

590 DATA 133,138,169,44,133,0,0,0 MD 

600 DATA 0,0,0,0,0,0,0,0 FG 

610 DATA 0,0,0,0,173,17,208,73 II 

620 DATA 32,141,17,208,173,24,208,73 IK 

630 DATA 8,141,24,208,96,169,255,208 NP 

640 DATA 2,169,0,141,33,192,169,4 IF 

650 DATA 162,4,160,0,32,186,255,169 MM 

660 DATA 0,32,189,255,32,192,255,162 PJ 

670 DATA 4,32,201,255,169,0,133,251 CD 

680 DATA 169,64,133,252,169,0,141,32 NH 

690 DATA 192,169,96,141,31,192,162,210 BI 

700 DATA 32,176,193,32,210,255,169,25 BE 

710 DATA 141,29,192,32,163,192,169,0 NM 

720 DATA 133,251,169,128,133,252,169,0 PD 

730 DATA 141,32,192,169,160,141,31,192 DL 

740 DATA 169,25,141,29,192,32,163,192 MM 

750 DATA 169,27,32,210,255,169,64,32 JI 

760 DATA 210,255,169,4,32,195,255,32 MM 

770 DATA 204,255,96,162,200,32,176,193 AN 

780 DATA 32,227,192,165,251,72,165,252 IH 

790 DATA 72,173,32,192,133,251,173,31 OE 

800 DATA 192,133,252,32,227,192,165,251 JA 

810 DATA 141,32,192,165,252,141,31,192 DL 

820 DATA 104,133,252,104,133,251,169,13 GJ 

830 DATA 32,210,255,32,225,255,208,5 CF 

840 DATA 104,104,76,144,192,206,29,192 lA 

850 DATA 208,193,96,169,40,141,30,192 CE 

860 DATA 160,0,162,0,120,169,46,133 NM 

870 DATA 1,177,251,141.34,192,169,47 JO 

880 DATA 133,1,88.14,34,192,62,21 IM 

890 DATA 192,232,224,8,208,245,200,192 MB 

900 DATA 8,208,223,24,165,251,105.8 CN 

910 DATA 133,251,165,252,105,0,133,252 FL 

920 DATA 162,0,189,21.192,77,33,192 00 

930 DATA 32,210,255.232,224,8,208,242 BE 

940 DATA 206,30,192,208,187,96,169,1 PJ 

950 DATA 162,8,160,0,32,186,255,173 LJ 

960 DATA 4,192,162.5,160,192,32,189 MM 

970 DATA 255,169,0.170,160,28,32,213 PC 

980 DATA 255,169,1,32,195.255,32,204 PE 

990 DATA 255,96,160,0,132.251,174.1 JB 

1000 DATA 192,134,252,132,253,174.0,192 BI 

1010 DATA 134,254,142,34,192,238,34,192 JG 

1020 DATA 200,192,32,208,248,160,0,120 HC 

1030 DATA 169,46.133,1,177.253,145,251 NI 

1040 DATA 169,47.133,1,88,200,208,239 JP 
1050 DATA 230,252,230,254,165,254,205,34 AL 

1060 DATA 192,208,228,173.3,192,133,252 NH 

1070 DATA 173,2,192,133,254,162.4,120 NL 

1080 DATA 169,40,133,1,177,253,145,251 DC 
1090 DATA 200,208,249,230,252,230,254,20 

2 EB 

•1100 DATA 208,242,169,47,133,1,88,96 PE 
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•1110 DATA 142,188,193,142,195,193,160,0 DC 

•1120 DATA 162,0,232,189,200,193,32,210 JM 

•1130 DATA 255,138,217,200,193,48,243,96 DK 

•1135 REM JD 

•1136 REM JD 

•1137 REM PRINTER CONTROL CODES FF 

•1138 REM Jl 

•1139 REM JD 

•1140 REM * EPSON PRINTER MODULE * LG 

•1150 DATA 5,27.42,6,128,2,0,0,0.0 Cl 

•1160 DATA 3,27,65,8,0,0,0,256 Gi 

•1170 REM * GEMINI PRINTER MODULE * JF 

•1180 DATA 4,27,76,128,2,0,0,0,0,0 K 

•1190 DATA 3,27,51,16,0,0,0,256 U 

B5^0 SIMULATOR 

FROM PAGE 77 

•lOfJ REM ******* 6510 SIMULATOR ******** BD 

•110 DATA ASL,BRK,CLC,CLD,CLI,CLV,DEX,DEY 

,INX,INY,LSR,NOP,PHA.PHP,PLA IL 

•120 DATA PLP,ROL,ROR.RTI,RTS,SEC.SED,SEI 

,TAX,TAY,TSX,TXA,TXS,TYA LC 

•130 DATA ADC,AND,CMP,CPX,CPY,EOR,LDA,LDX 

.LDY.ORA.SBC FG 

•140 DATA ADC,AND,ASL,BCC,BCS,BEQ,BIT,BMI 

, BNE , BPL . BVC , BVS , CMP , CPX , CPY EC 

•150 DATA DEC,EOR,INC,JMP,JSR,LDA,LDX,LDY 

,LSR,0RA,R0L,R0R,SBC,STA,STX FC 

•160 DATA STY,ASL,LSR,R0L,R0R Lo 

•170 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,FBF 
• 180 DATA 0000 , 0001 , 0010 , 001 1 , 0100, 0101 ,0 

110,0111 PC 

•190 DATA 1000. K/Jl, 1010, 1011, 1100, 1101,1 

110,1111 GG 

•2r/j DIM HEX$(8),BIT$(8),H$(16),B$(16),TE 

MP$(2),BIT(8),N$(75) N( 

• 2 10 AH$="00" : XH$="O0" : YH$="00" : Z$="0" : AD 
=0:SC=0:YD=0 AL 

• 220 AB$=" [ 8"0" ] " : XB$=" [8"0" ] " : YB$=" [ 8"0" 
]" GF 

•230 N=0:V=O:B=O:D=0:I=O:Z=O:C=0 NN 
•240 IF RIGHT$(A$,1)=" "THEN 300:REM TYPE 

A SPACE BETWEEN THE QUOTES PI 

•250 FOR L=l TO 75: READ N$(L):NEXT L MA 
•260 FOR L=l TO 16:READ H$(L):NEXT L:F0R 

L=l TO 16:READ B$(L):NEXT L CH 

•270 PRINT CHR$(147):REM CLEAR SCREEN EG 
•280 PRINT " N V - B D I Z C" NF 
•285 PRINT N;V;" - ";B;D;I;Z;C:PRINT LA 
•290 PRINT "A: ";AH$;"[7" "]X: ";XH$;"[7" 

"]Y: ";YH$ KM 

•295 PRINT AB$;"[4" "]";XB$;"[4" "]";YB$: 

PRINT OB 

•300 B=0:A$="": INPUT " ";A$:REM TYPE SPAC 

E BETWEEN SECOND PAIR OF QUOTES MG 
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•320 IF LEN(A$)<3 OR LEN(A$)>10 THEN 300 CD 
'330 IF LEN(A$)=3 THEN 420:REM GO TO IMPL 

lED-ADDRESS ROUTINES JC 

•340 IF MID$(A$,4,1)<>CHR$(32) THEN 300 A J 
•350 IF RIGHT$(A$,1)=CHR$(32) THEN 300 PC 
•360 GOTO 450: REM GO TO IMMEDIATE- AND AB 

SOLUTE-ADDRESS ROUTINES BH 

•370 REM *** ROUTINE TO CONVERT 0P$ & AD$ 

TO BINARY NUMBERS *** LP 

•380 0D$=0P$:GOSUB 1130: FOR L=l TO 8:BIT$ 

(L)=Z$:NEXT L AG 

•390 FOR L=l TO 8:B1$(L)=MID$(0B$,L,1) :NE 

XT L EC 

•400 FOR L=l TO 8:B2$(L)=MID$(AB$,L,1) :NE 

XT L: RETURN 01 

•410 REM *** IMPLIED-ADDRESSING ROUTINES 

*** JL 

•420 FOR L=l TO 29: IF A$=N$(L) THEN OC$=A 

$:OC=L:GOTO 1350 LN 

•430 NEXT L:GOTO 300 CH 

•440 REM *** IMMEDIATE, ABSOLUTE & ACCUMU 

LATOR ADDRESS MODES *** CP 

•450 0C$=LEFT$(A$,3):0P$=MID$(A$,5) NC 
•460 IF LEFT$(0P$,1)="#" AND MID$(0P$,2,1 

)="$" THEN FLAG$="AH":G0T0 530 KH 
•470 IF LEFT$(0P$,1)="#" THEN FLAG$="AD": 

GOTO 620 IG 

•480 IF LEFT$(0P$,1)="$" THEN FLAG$="IH": 

GOTO 690 OK 

•490 IF OP$="A" THEN 790 MN 

•500 IF LEFT$(0P$,1)<"0" AND LEFT$(0P$,1) 

>"9" THEN 300: REM TRY AGAIN JO 

•510 FLAG$="ID":GOTO 840 CB 

•520 REM *** HEX OPERAND, ABSOLUTE ADDRES 

S *** FI 

•530 0P$=MID$(0P$,3) MH 

•540 FOR L=30 TO 40: IF X$=N$(L) THEN 0C= 



LrGOrO 560 GP 

•550 NEXT L:G0TO 300 CH 

•560 IF LEN(0P$)>2 THEN 300 JP 

•570 FOR L=l TO LEN(OP$) :X$=MID$(0P$,L,1 

):IF X$<Z$ OR X$>"F" THEN 300 PC 

•580 IF X$>"9"AND X$<"A" THEN 300 AI 
•590 IF LEN(0P$)=1 THEN OP$=Z$+OP$ JH 
•600 OH$=OP$:GOSUB 1030 :OP$=OD$: GOTO 670 IN 
•610 REM *** DECIMAL OPERAND, ABSOLUTE AD 

DRESSING *** GN 

•620 0P$=MID$(0P$,2) MG 

•630 FOR L=30T0 40: IF 0C$=N$(L) THEN OC=L 

:GOTO 650 GB 

•640 NEXT L:GOTO 300 CH 

•650 IF VAL(0P$)>255 THEN 300 OK 

•660 FOR L=l TO LEN(0P$) :X$=MID$(0P$,L,1 

):IFASC(X$)<48 OR ASC(X$)>57 THEN 420 EH 
•670 OC=OC-29:GOT0 1420 HK 

•680 REM *** HEX OPERAND, IMMEDIATE ADDRE 

SS *** EA 

•690 0P$=MID$(0P$,2) MG 



700 FOR L=41 TO 71: IF 0C$=N$(L) THEN OC 
=L:G0T0720 CN 

710 NEXT L:G0TO 300 CH 

720 IF LEN(0P$)>4 THEN 300 RF 

730 FOR Ul TO LEN(OP$) :X$=MID$(0P$,L,1) 
:IF X$<Z$ OR X$>"F" THEN 300 PC 

740 IF X$>"9" AND X$<"A" THEN 300 AI 
750 NEXT L MO 

760 OH$=OP$:GOSUB 1030:0P$=OD$:0P$=STR$( 
PEEK(VAL(0P$))) JF 

770 0C=0C-40:G0T0 1430 lA 

780 REM *** ACCUMULATOR ADDRESSING *** EG 
790 OP$="A" AL 

800 FOR L=72 T075:IF OC$=N$(L) THEN OC=L 
-71: GOTO 820 01 

810 NEXT L:G0T0 300 CH 

820 ON X GOTO 1510,1760,1790,1810 IL 
830 REM *** DECIMAL OPERAND, IMMEDIATE A 
DDRESS ** JC 

840 IF VAL(OP$)>65535 THEN 300 JD 
860 FOR L=l TO LEN(0P$):X$=MID$(0P$,L,1) 
:IF ASC(X$)<48 OR ASC(X$)>57 THEN 300 EI 
870 FOR U41 TO 71: IF OC$=N$(L) THEN 0C= 
LrGOTO 890 CP 

880 NEXT L:GOTO 300 CH 

890 OP$=STR$(PEEK(VAL(OP$))) IN 

900 0C=0C-40:G0T0 1430 I A 

910 REM *** DECIMAL-TO-HEXADECIMAL CONVE 
RSION *** JN 

920 FOR L=l TO 4:HEX$(L)="":NEXT L KJ 
930 FOR Ul TO 5:T$=RIGHT$(0D$,L) :NEXT L HO 
940 NR=VAL(0D$):X==4 KF 

950 TMP=NR:NR=INT(NR/16):TMP=TMP-NR*16 DM 
960 IF TMP<10 THEN HEX$(X)=RIGHT$(STR$(T 
MP),1):G0T0 980 BN 

970 HEX$(X)=CHR$(TMP-10+ASC("A")) EA 
980 IF RROO THEN X=X-1:G0T0 950 PN 
990 0H$=HEX$(1)+HEX$(2)+HEX$(3)+HEX$C4) JM 
1000 IF LEN(0H$)=1 THEN 0H$=Z$+0H$ BP 
1010 RETURN IM 

1020 REM *+* HEXADECIMAL-TO-DECIMAL CONV 
ERSION *** GB 

1030 NR=0:FOR L=l TO LEN(OH$) :HEX$(L)=MI 
D$(0H$,L,1) FF 

1040 IF HEX$(L)<="9" THEN NR=NR*16+VAL(H 
EX$(L)):G0T0 1060 GO 

1050 NR=NR*16+ASC(HEX$(L))-ASC("A")+10 CE 
1060 NEXT L:OD$=STR$(NR): RETURN OK 
1070 REM *** BINARY-TO-DECIMAL CONVERSIO 
N *** FC 

1080 FOR L=8 TO 1 STEP -1:B$(L)=MID$(0B$ 
,L,1):NEXT L AL 

1090 FOR L=l TO 8:BIT(L)=VAL(B$(L)):NEXT 
L:0D=0:NR=256 NL 

1100 FOR Ul T08:NR=NR/2tOD=OIHBIT(L)*N 
R:NEXT L GF 

1110 OD$=STR$(OD): RETURN NO 

1120 REM *** DECIMAL-TO-BINARY CONVERSIO 
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N *** DG 

■1130 OD=VAL(OP$):FOR U8 TO 1 STEP -1:TM 
P=OD/ 2 : NR=TMP-INT ( TMP ) EL 

lUO IF NR=0 THEN BT$(L)=Z$:GOT0 1160 JO 
1150 BT$(L)="1" JE 

1160 OD=INT(TMP):NEXT L BP 

1170 0B$=BT$(1)+BT$(2)+BT$(3)+BT$(4)+BT$ 
(5)+BT$(6)+BT$(7)+BT$(8):RETURN DN 
1180 REM *** HEX-TO-BINARY CONVERSION ** 

* AI 
1190 HEX$(1)="":HEX$(2)="":F0R L=l TOLEN 

(OH$):HEX$(L)=MID$(OH$,L.l) DK 

1200 NEXT L:IF HEX$(2)="" THEN HEX$(2)=H 
EX$(1):HEX$(1)=Z$ OM 

1210 FOR L=l TO 16: IF HEX$(1)=H$(L) THEN 

BIT$(1)=B$(L) HC 

1220 NEXT L:FOR L=l TO 16:IF HEX$(2)=H$( 
L) THEN BIT$(2)=B$(L) IG 

1240 NEXT L:0B$=BIT$(1)+BIT$(2):PRINT:RE 
TURN AP 

1260 REM **+ BINARY-TO-HEX CONVERSION ** 

* HA 
1270 FOR L=l TO 8:BIT$(L)=MID$(0B$,L, 1 ) : 
NEXT L MM 
1280 BIT$=BIT$(1)+BIT$(2)+BIT$(3)+BIT$(4 
)+BIT$(5)+BIT$(6)+BIT$(7)+BIT$(8) PA 
1290 T1$=LEFT$(BIT$,4):T2$=RIGHT$(BIT$,4 
):F0R L=l TO 16 NM 
1300 IF T1$=B$(L)THEN HEX$(1)=H$(L) IL 
1310 NEXT L:FOR L=l TO 16: IF T2$=B$(L) T 
HEN HEX$(2)=H$(L) NK 
1320 NEXT L:IF HEX$(1)="" THEN HEX$(1)=Z 
$ FG 
1330 0H$=HEX$(1)+HEX$(2):RETURN CO 
1340 REM *** ON/GOTO DATA *** LE 
1350 ON OC GOTO 1510,1560,1570,1580,1590 
, 1600, 1610, 1650, 1690, 1730 JB 
1360 NR=0C-10:0N NR GOTO 1760,1780,1780, 
1780,1780,1780,1790,1810,1830,1840 KG 
1380 NR=NR-10:0N NR GOTO 1850,1860,1870, 
1880, 1900, 1920, 1930, 1940, 1950, 1840 CF 
1400 NR=NR-10:0N NR GOTO 1850,1860.1870, 
1880, 1900, 1920, 1930, 1940, 1950, 1950 BP 
1420 ON OC GOTO 1970,2100,2170,2250,2320 
,2390,2450,2550,2650,2750,2810 BD 
1430 ON OC GOTO 1970,2350,3250,1780,1780 
,1780,3200,1780,1780,1780 JO 
1440 NR=0C-10:0N NR GOTO 1780,1780,3250, 
2250,2320,3260,2390,3290,1780,1780 EL 
1460 NR=NR-10:0N NR GOTO 2450,2550,2650. 
3320,2750,3340,3360,2810,1780,1780 OL 
1480 NR=NR-10:0N NR GOTO 1780,3390 BB 
1500 REM *** IMPLI ED-ADDRESS OP-CODE ROU 
TINES CG 
1510 C=VAL(LEFT$(AB$,1)):AB$=MID$(AB$,2) 
+Z$:REM *** ASL *** EH 
1520 OB$=AB$:GOSUB 1270:AH$=OH$:0P$=OH$: 
GOSUB 1030:N=0:Z=0 DF 
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1530 IF LEFT$(0B$,1)="1"THEN N=l OP 
1540 IF VAL(OD$)=''jTHEN Z=1 BO 

1550 GOTO 3390 FK 

1560 B=1:GOTO 3390: REM *** BRK *** JG 
1570 C=0:GOTO 3390: REM *** CLC *** EL 
1580 D=0:GOTO 3390: REM *** CLD *** FJ 
1590 1=0: GOTO 3390: REM *** CLI *** IH 
1600 V=0:GOTO 3390: REM *** CLV *** NN 
1610 OH$=XH$:GOSUB 1030:XD=VAL(0D$):REM 
*** DEX ** IF 

1620 XD=XD-1:IF XD<0 THEN XD=255 JO 
1630 0D$=STR$(XD) :GOSUB920:XH$=OH$: GOSUB 

1190:XB$=0B$ BF 

1640 TMP=XD: GOSUB 3410: GOTO 280 EF 
1650 OH$=YH$:GOSUB 1030 :YD=VAL(OD$): REM 
**+ DEY *** 00 

1660 YD=YD-1:IF YD<0 THEN YD=255 BC 
1670 OD$=STR$(YD):GOSUB 920:YH$=OH$:GOSU 
B 1190:YB$=0B$ O 

1680 TMP=YD: GOSUB 3410: GOTO 280 FE 
1690 OH$=XH$:GOSUB 1030:XD=VAL(0D$) :REM 
*** INX *** BD 

1700 OD$=STR$(XD): GOSUB 920:XH$=0H$:G0SU 
B 1190:XB$=OB$ BF 

1710 XD=XI>fl:IF XD>255 THEN XD=0 KP 
1720 GOTO 1630 FN 

1730 OH$=YH$:GOSUB 1030 :YD=VAL(OD$): REM 
*** INY *** CO 

1740 YD=YD+1:IF YD>255 THEN YD=0 NB 
1750 GOTO 1670 FJ 

1760 C=VAL(RIGHT$( AB$ , 1 ) ) : AB$=Z$+LEFT$( A 
B$,7):REM *** LSR *** 00 

1770 GOTO 1520 FN 

1780 GOTO 3390: REM *** NOP,PHA,PHP,PLA A 
ND PLP *** OP 

1790 GOTO 3340: REM *** ROL *** AC 
1810 GOTO 3360: REM *** ROR *** EC 
1830 N=0 : V=0 : B=0 :D=0: 1=0 :Z=0:C=0: GOTO 28 
REM *** RTI *** ND 

1840 GOT 3390: REM *** RTS *** LG 

1850 C=1:G0T0 3390: REM *** SEC *** ID 
1860 D=1:G0T0 3390; REM *** SED *** HG 
1870 1=1: GOTO 3390: REM *** SEI +*+ GP 
1880 XH$=AH$:XB$=AB$:OP$=AH$: GOSUB 1030: 
TMP=VAL(OD$):REM *** TAX *** CG 

1890 GOSUB 3410: GOTO 3390 PI 

1900 YH$=AH$:YB$=AB$:OP$=AH$: GOSUB 1030: 
TMP=VAL(OD$):REM *** TAY *** CN 

1910 GOSUB 3410: GOTO 3390 PI 

1920 XH$="00":XB$="[8"0"]":GOSUB 3410: GO 
TO 3390: REM *** TSX *** LN 

1930 AH$=XH$:AB$=XB$:GOTO 1520: REM *** T 
XA *** AO 

1940 GOTO 3390: REM *** TXS *** DL 
1950 AH$=YH$:AB$=YB$:GOTO 1520: REM *** T 
YA *** HP 

•1960 REM **+ ABSOLIJTE-ADDRESS OPERANDS * 
** FI 



1970 IF D THEN 2950: REM +** ADC *** NJ 
1980 OP=VAL(OP$):TMP$=AB$ OM 

1990 GOSUB 1130:PLUS$=0B$ HA 

2000 OH$=AH$: GOSUB 1030:AD$=0D$:AD=VAL(A 
D$):TMP=AD NF 

2010 AI>=ArM-OP+C:C=0:IF AD>255 THEN GOSUB 

2090 DK 

2020 AD$=STR$(AD) :OD$=AD$:GOSUB920:AH$=0 
H$ BL 

2030 GOSUB 1I90:AB$=0B$ JX 

2040 N=0:IF AD>I27 THEN N=l NO 

2050 Z=0:IF AD=0 THEN Z=l FC 

2060 V=0 DL 

2070 IF LEFT$(TMP$,1)=LEFT$(PLUS$,1) AND 

LEFT$(TMP$,1)<>LEFT$(AB$,1)THEN V=l LN 
2080 OD$=AD$: GOSUB 1030:AH$=OH$:GOTO 280 DC 
2090 C=l:AD=AD-256: RETURN DP 

2100 GOSUB 380: REM *** AND *** PJ 
2110 FOR L=l TO 8:BIT$(L)="0":^fEXT L AA 
2120 FOR L=l TO 8: IF B1$(L)="1" AND B2$( 
L)="l" THEN BIT$(L)="1" HJ 

2130 NEXT L MO 

2140 AB$=BIT$(1)+BIT$(2)+BIT$(3)+BIT$(4) 
+BIT$(5)+BIT$(6)+BIT$(7)+BIT$(8) LC 
2150 0B$=AB$:GOSUB 1270:AH$=OH$ LN 
2160 GOSUB 1030:TMP=VAL(0D$):G0SUB3410:P 
RINT:GOTO 280 KC 

2170 0H$=AH$:GOSUB 1030:AD$=OD$:AD=VAL(A 
D$):OP=VAL(OP$):REM *+* CMP *** NB 
2180 Z=0:IF AD=OP THEN Z=l NN 

2190 N=0:IF OP>AD THEN N=l NA 

2220 C=0:IF AD>OP OR AD=OP THEN C-1 CN 
2240 GOTO 3390 FK 

2250 OH$=XH$: GOSUB 1030:XD$=0D$:XD=VAL(X 
D$):0P=VAL(0P$):REM *** CPX +** CG 
2260 Z=0:IF XD=0P THEN Z=l LK 

2280 N^OiIF OP>XD THEN N=l NL 

2300 C=0:IF XD>OP OR XD=OP THEN C=l GF 
2310 GOTO 3380 GD 

2320 OH$=YH$: GOSUB 1030:YD$=0D$:YD=VAL(Y 
D$):0P=VAL(0P$):REM *+* CPY *** CN 
2330 Z=0:IF YD=OP THEN Z=l NF 

2340 N=0:IF OP>YD THEN N=l NI 

2350 C=0:IF YD>OP OR YD=OP THEN C=l FN 
2380 GOTO 3380 GD 

2390 GOSUB 380: REM *** EOR *** OG 
2400 FOR L=l TO 8:BIT$(L)=Z$:NEXT L PJ 
2410 FOR Ul TO 8: IF B1$(L)="1" AND B2$( 
L)="l" THEN BIT$(L)="0":GOTO 2440 KO 
2420 IF Bl$(L)=*'l" OR B2$(L)="1" THEN BI 
T$(L)="1" FE 

2440 NEXT L:GOTO 2140 FP 

2450 IF D=l THEN 2480: REM *♦* LDA *** LG 
2460 OD$=OP$: GOSUB 920 :AH$=OH$: GOSUB 119 
0:AB$=OB$ IG 

2470 TMP=VAL(OP$): GOSUB 3410:GOTO 280 HA 
2480 IF FLAG$="AD" AND VAL(0P$)>99 THEN 
300 JD 



2490 IF FLAG$<>"AD" THEN OD$=OP$: GOSUB 9 
20:AH$=0H$:G0T0 2530 MD 

2500 IF LEN(0P$)=1 THEN 0P$=Z$+0P$ JH 
2510 AH$=0P$:0H$=AH$:G0T0 2530 NJ 
2520 OD$=OP$: GOSUB 920:AH$=0H$ EB 
2530 GOSUB 1190:AB$=0B$ JK 

2540 TMP=VAL(OP$): GOSUB 341O:G0T0 2470 JN 
2550 IF D=l THEN 2580: REM *♦* LDX *** MM 
2560 0D$=0P$:G0SUB 920 :XH$=OH$: GOSUB 119 
0:XB$=OB$ NO 

2570 TMP=VAL(OP$): GOSUB 3410:GOTO 280 HA 
2580 IF FLAG$="AD" AND VAL(0P$)>99 THEN 



300 



JD 



2590 IF FLAG$<>"AD" THEN OD$=OP$:GOSUB 9 
20:XH$=0H$:G0T0 2630 GN 

2600 IF LEN(0P$)=1 THEN OP$=Z$+OP$ JH 
2610 XH$=OP$:OH$=XH$:GOTO 2630 HA 
2620 OD$=OP$: GOSUB 920:XH$=OH$ CM 
2630 GOSUB 1190:XB$=OB$ MF 

2640 TMP=VAL(OP$): GOSUB 3410:G0T0 2570 JK 
2650 IF D=l THEN 2680: REM *** LDX *** OJ 
2660 0D$=0P$: GOSUB 920 :YH$=0H$: GOSUB 119 
OtYB$=OB$ JG 

2670 TMP=VAL(OP$): GOSUB 3410:G0T0 280 HA 
2680 IF FLAG$="AD" AND VAL(OP$)>99 THEN 
300 JD 

2690 IF FLAG$<>"AD" THEN OD$=OP$: GOSUB 9 
20:YH$=0H$:G0T0 2730 PN 

2700 IF LEN(0P$)=1 THEN OP$=Z$+OP$ JH 
2710 YH$=OP$:OH$=YH$:GOTO 2730 EL 
2720 OD$=OP$: GOSUB 920:XH$=0H$ CM 
2730 GOSUB 1190:YB$=0B$ OC 

2740 TMP=VAL(0P$): GOSUB 3410:GOTO 2670 JP 
2750 GOSUB 380: REM ♦** ORA *** KE 
2760 FOR L=l T08:IF B1$(L)="1" OR B2$(L) 
="1" THEN BIT$(L)="1" KC 

2770 NEXT L:AB$="":F0R L=l TO 8:AB$=AB$+ 
BIT$(L):NEXT L PE 

2790 0B$=AB$:G0SUB 1270:AH$=OH$ LN 
2800 GOSUB 1030:TMP=VAL(0D$):G0SUB3410:G 
OTO 3390 FB 

2810 IF D THEN 3060: REM *** SBC *** NI 
2820 OP=VAL(OP$):TMP$=AB$ OM 

2830 GOSUB 1130:MI$=0B$ U 

2840 OH$=AH$: GOSUB 1030:AD$=0D$:AD=VAL(A 
D$):TMP=AD NF 

2850 AD=AD-OP:IF C=0 THEN AD=AD-1 IN 
2860 IF AD<0 THEN AD=256+AD:C=0 AN 
2870 AD$=STR$ ( AD) :OD$=AD$: GOSUB 920:AH$= 
0H$ BL 

2880 GOSUB 1190:AB$=0B$ JK 

2890 N=0:IF AD>127 THEN N=l NO 

2900 Z=0:IF AD=0 THEN Z=l FC 

2910 V==0:IF LEFT$(TMP$,1)=LEFT$(MI$,1) T 
HEN 2930 EE 

2920 IF LEFT$(AB$,1)=.LEFT$(TMP$,1) THEN 
V=l HI 

2930 OD$=AD$: GOSUB 1030 :AH$=K)H$: GOTO 280 DC 
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2940 REM *** BCD ADDITION ROUTINE *** AC 

2950 IF FLAG$<>"AD" THEN 1980 HP 

2960 IF LEFT$(AH$,1)>"9" OR RIGHT$(AH$,1 

)>"9" THEN 3030 

2970 AD=VAL(AH$) 

2980 0P=VAL(OP$) : AD=AIM-OP+C : C=0 

2990 GOSUB 1030:TMP=VAL(0D$) :GOSUB 3410 

3000 IF AD>99 THEN GOSUB 3040 

3010 AH$=STR$(AD):IF LEN(AH$)=1 THEN AH$ 

=Z$+AH$ JN 

3020 OH$=AH$: GOSUB 1190:AB$=0B$:GOTO 280 ID 

3030 OH$=AH$: GOSUB 1030:AD$=0D$:AD=VAL(A 

D$):GOTO 2980 OF 

3040 C=1:AD=AD-1Vj: RETURN CF 

3050 REM *** BCD SUBTRACTION ROUTINE *** DL 

3060 IF FLAG$<>"AD" THEN 2820 HJ 

3070 IF LEFr$(AH$,l)>"9" OR RIGHT$(AH$,l 

)>"9" THEN 3120 GA 

3080 AD=VAL(AH$) :OP=VAL(OP$) :AD=AD-OP:IF 

C=0 THEN AD=AD-1 LB 

3100 IF AD<0 THEN GOSUB 3130 OF 

3110 GOTO 3010 EP 

3120 OH$=AH$:GOSUB 1030:AD$-0D$:AD-VAL(A 
D$):GOT0 3090 NI 

3130 C=0:AD=10Ch-AD: RETURN 
3140 REM *** IMMEDIATE-ADDRESS ROUTINES 

3150 0D$=0P$:G0SUB 920:GOSUB 1190:REM ** 

* ASL *** 

3160 C=VAL(LEFT$(0B$,1)):0B$=MID$(0B$,2) 

+Z$ 

3170 GOSUB 1270:GOSUB 1030:X=VAL(0D$) :N= 

0:IF X<0 THEN N=l 

3180 Z=0:IF X=0 THEN Z=l 

3190 GOTO 280 

3200 GOSUB 1030: AD=VAL(0D$): REM *** BIT 

**+ 

3210 GOSUB 1130:N=VAL(LEFT$(0B$,1)):V=VA 

L(MID$(0B$,2,1)) 

3220 GOSUB 400:Z=1:F0R L=l TO 8 

3230 IF B1$(L)="1" AND B2$="l" THEN Z=0 

3240 NEXT L:GOTO 3390 

3250 GOTO 2170 

3260 0P=VAL(0P$):0P=0P-1:IF OP<0 THEN N: 

REM *** DEC *** 

3270 IF 0P=0 THEN Z=l 

3280 GOTO 3390 

3290 0P=VAL(0P$):0P=0P+1:IF 0P<0 THEN N= 

1:REM *** INC *** 

3300 IF OP=Z THEN Z=l 

3310 GOTO 3390 

3320 OD$=OP$: GOSUB 920: GOSUB 1190 

3330 C=VAL(RIGHT$(0B$,1)) :OB$=Z$+LEFT$(0 

B$,7):G0T0 3170 

3340 IF C=l THEN J$="1":REM *** ROL *** 

3341 IF C=0 THEN J$="0" 
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3342 C=VAL(LEFr$(AB$,l)):AB$=RIGHT$(AB$, 
7)+J$ BD 

3350 0B$=AB$:GOSUB 1270:AH$=OH$:OP$=OH$3 



DF 
OP 
BO 
FK 
GH 
PL 



GOSUB 1030:N=0:Z=0 

3355 IF LEFTS (0B$,1)="1" THEN N=l 

3356 IF VAL(OD$)=OTHEN Z=l 

3357 GOTO 3390 

3360 IF C=l THEN J$="1":REM *** ROR *** 
3365 IF C=0 THEN J$=Z$ 

3370 C=VAL(RIGHT$(AB$,1)) :AB$=J$+LEFT$(A 
B$,7) DL 

3371 GOTO 3350 FO 
3380 REM *** PRINT LINE SPACE & GET ANOT 
HER LINE *** FK 
3390 PRINT: GOTO 280 PI 
3400 REM *** SET Z AND N FLAGS *** HO 
3410 N=0:IF TMP>127 THEN N=l EE 
3420 Z=0:IF TMP=0 THEN Z=l MO 
3430 RETURN IM 
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DO 


B6 


4C 


B6 


CO 


AO 


IF 


A2 


6E 


C6C8: 


01 


20 


BD 


C5 


Bl 


FE 


8D 


EC 


98 


C6D0: 


C8 


Bl 


FC 


8D 


ED 


C8 


20 


CC 


79 


C6D8: 


C5 


Bl 


FE 


8D 


E8 


C8 


Bl 


FC 


3D 


C6E0: 


8D 


E7 


C8 


20 


E7 


C5 


AD 


E8 


83 


C6E8: 


C8 


91 


FE 


AD 


E7 


C8 


91 


FC 


2F 


C6F0: 


20 


OB 


C7 


E8 


EO 


18 


DO 


El 


78 


C6F8: 


20 


E7 


C5 


AD 


EC 


G8 


91 


FE 


BA 


C700: 


AD 


ED 


C8 


91 


FC 


88 


DO 


BF 


OC 


C708: 


4C 


B6 


CO 


18 


A5 


FE 


69 


50 


42 


C710: 


85 


FE 


A5 


FF 


69 


00 


85 


FF 


29 


C718: 


18 


A5 


FC 


69 


50 


85 


FC 


A5 


B4 


C720: 


FD 


69 


00 


85 


FD 


60 


38 


A5 


49 


C728: 


FE 


E9 


50 


85 


FE 


A 5 


FF 


E9 


75 


C730: 


00 


85 


FF 


38 


A5 


FC 


E9 


50 


CA 


C738: 


85 


FC 


A5 


FD 


E9 


00 


85 


FD 


CB 


C740: 


60 


20 


05 


00 


00 


00 


20 


43 


29 


C748: 


55 


52 


53 


4F 


52 


20 


56 


45 


AO 


C750: 


4C 


4F 


43 


49 


54 


59 


20 


28 


6E 


C758: 


30 


2D 


39 


29 


20 


00 


20 


53 


AB 


C760: 


41 


56 


45 


3E 


20 


20 


20 


20 


FB 


C768: 


20 


20 


20 


20 


20 


20 


20 


20 


69 


C770: 


20 


20 


20 


20 


20 


00 


20 


4C 


7D 


C778: 


4F 


41 


44 


3E 


20 


20 


20 


20 


OC 


C780: 


20 


20 


20 


20 


20 


20 


20 


20 


81 


C788: 


20 


20 


20 


20 


20 


00 


05 


20 


4E 


C790: 


3C 


3C 


3C 


3C 


3C 


3C 


20 


44 


5E 


C798: 


49 


53 


4B 


20 


45 


52 


52 


4F 


D9 


C7A0: 


52 


20 


3E 


3E 


3E 


3E 


3E 


3E 


88 


C7A8: 


20 


00 


FF 


FO 


00 


CO 


30 


00 


AA 


C7B0: 


CO 


30 


00 


CO 


30 


00 


CO 


30 


83 


C7B8: 


00 


CO 


30 


00 


CO 


30 


00 


CO 


5B 


C7C0: 


30 


00 


CO 


30 


00 


FF 


FO 


12 


E4 


C7C8: 


90 


20 


97 


20 


98 


20 


9B 


20 


A5 


C7D0: 


05 


20 


IF 


20 


9A 


20 


9F 


20 


AF 


C7D8: 


OD 


12 


99 


20 


IE 


20 


9E 


20 


AE 


C7E0: 


96 


20 


IC 


20 


9C 


20 


81 


20 


32 


C7E8: 


95 


20 


OD 


97 


D5 


C9 


12 


D5 


CA 


C7F0: 


C9 


92 


BO 


AE 


12 


BO 


AE 


OD 


2B 


C7F8: 


CA 


CB 


12 


CA 


CB 


92 


AD 


BD 


36 


C800: 


12 


AD 


BD 


OD 


B3 


Bl 


DD 


DB 


A9 


C808: 


D6 


CO 


B2 


AB 


OD 


12 


B3 


Bl 


82 


C810: 


DD 


DB 


D6 


CO 


B2 


AB 


OD 


Dl 


9E 


C818: 


D7 


D8 


D3 


DA 


CI 


40 


2A 


OD 


BO 


C820: 


A3 


B7 


B8 


12 


A2 


B9 


AF 


A4 


F6 


C828: 


20 


OD 


A4 


AF 


B9 


A2 


12 


B8 


DO 


C830: 


B7 


A3 


20 


OD 


A7 


B6 


12 


Al 


CA 



IMPHRTAMTI '-^''^''^ °" ^^''^ background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
llVlr Un mil I i and provide other essential information on entering Ahoy! programs. Refer to these pages t>efore entering any programs! 

OFF][c 6][s Q]" LG 

•90 PRINTSPC(4)"[c 6][s Q][ YELLOW] [RVSON] 

tRVS0FF][sEP][22"[c T]"][c *][RVSON] 
[RVSOFF] [WHITE] [s W]" KM 

•100 PRINTSPC(4)"[WHITE][s W] [YELLOW] [sEP 

][26"[c T]"][c *][c 6][s Q]" DI 

•110 PRINTSPC(5)"[WHITE][28"[s Z]"]" IK 
•120 PRINTSPC(5)"[WHITE][s Z][s Z][RED][R 
VS0N][3" "] [RVSOFF] [WHITE] [s Z][s Z][RED 
][RVSON] [ RVSOFF] [ WHITE] [s Z][s Z][RED][ 
RVSON] [RVSOFF] [WHITE] [s Z] [RED] [RVSON] [ 
4" "] [RVSOFF] [WHITE] [s Z] [RVSON] [RED] [R 
VSOFF] [WHITE] [s Z][s Z] [RED] [RVSON] [RVS 
OFF] [WHITE] [s Z 

] [RED] [RVSON] [4" "] [RVSOFF] [WHITE] [s Z][ 
s Z]" GL 

•130 PRINTSPC(5)" [WHITE] [s Z][s Z][RVSON] 
[RED] [RVSOFF] [WHITE ][s Z][s Z] [RED] [RVS 
ON] [RVSOFF] [WHITE] [s Z] [RED] [RVSON] [RV 
SOFF] [WHITE] [s Z][s Z] [RVSON] [RED] [RVSO 
FF][WHITE][s Z] [RVSON] [RED] [RVSOFF][WHI 
TE][4"[s Z]"][ RVSON] [RED] [RVSOFF] [WHITE 
][s Z] [RED] [RVS 

ON] [RVSOFF] [WHITE ][s Z][s Z] [RED] [RVSON 
] [RVSOFF] [WHITE] [ 5" [s Z]"]" FE 

•140 PRINTSPC(5)"[WHITE][s Z][s Z][RED][R 
VSON] [RVSOFF] [WHITE] [s Z][s Z] [RED] [RVS 
ON] [WHITE] [RVSOFF] [s Z] [RED] [RVSON] [WH 
ITE] [RVSOFF] [s Z][s Z] [RED] [RVSON] [WHIT 
E] [RVSOFF] [s Z] [RED] [RVSON] [WHITE] [RVSO 
FF][4"[s Z]"][RED] [RVSON] [WHITE][RVSOF 
F][3"[s Z]"][RE 
D][RVS0N][4" "] [WHITE] [RVSOFF] [s Z][s Z] 



C838: 


B5 


B4 


92 


DC 


A8 


20 


OD 


12 


F9 


C840: 


AA 


B6 


92 


Al 


B5 


B4 


A6 


D9 


CO 


C848: 


12 


D4 


OD 


C5 


C4 


C6 


D2 


CE 


2F 


C850: 


CD 


C8 


12 


C7 


OD 


12 


G5 


C4 


6A 


C858: 


C6 


D2 


CE 


CD 


92 


C7 


12 


C8 


C3 


C860: 


OD 


BA 


CC 


12 


BA 


CC 


BF 


92 


EO 


0868: 


2B 


D4 


12 


D9 


OD 


DO 


CF 


12 


14 


C870: 


DO 


CF 


92 


BF 


2D 


5B 


5D 


OD 


56 


C878: 


12 


A9 


DF 


92 


AC 


BB 


12 


AC 


CD 


C880: 


BB 


92 


3C 


3E 


OD 


DF 


A9 


BC 


9C 


C888: 


BE 


12 


BC 


BE 


92 


28 


29 


OD 


C5 


C890: 


41 


42 


43 


44 


45 


46 


47 


48 


B6 


C898: 


OD 


49 


4A 


4B 


4C 


4D 


4E 


4F 


BB 


C8A0: 


50 


OD 


51 


52 


53 


54 


55 


56 


F4 


C8A8: 


57 


58 


OD 


59 


5A 


24 


27 


2E 


92 


C8B0: 


23 


30 


31 


OD 


32 


33 


34 


35 


11 


C8B8: 


36 


37 


38 


39 


OD 


12 


20 


20 


F6 


C8C0: 


20 


20 


20 


20 


20 


20 


20 


92 


34 


C8C8: 


20 


20 


9A 


53 


43 


52 


45 


45 


17 


C8D0: 


4E 


20 


4D 


41 


47 


49 


43 


20 


CI 


C8D8: 


20 


42 


59 


20 


42 


4F 


42 


20 


A8 


C8E0: 


53 


50 


49 


52 


4B 


4F 


00 


01 


BB 



EK 



FROM PAGE 35 

•5 PRINTCHR$(142):HS=0:GOSUB1100:P0KE5328 
0,0 

•10 PRINT"[H0ME] [DOWN] [DOWN] "SPC(8)"[c 6] 

[s Q][WHITE][s W][c 6][s Q][WHITE][s W][ 

c 6][s Q][WHITE][s W][c 6][s Q][WHITE][s 
W][c 6][s Q][WHITE][s W][c 6][s Q][WHIT 

E][s W][c 6][s Q][WHITE][s W][c 6][s Q][ 

WHITE][s W][c 61[s Q][WHITE][s W][c 6][s 
Q][WHITE][s W] 

[c 6][s Q][WHITE][s W]" AE 

•20 PRINTSPC(7)"[WHITE][s W][ RVSON] [YELLO 

W][sEP] [RVSOFF] [20" "] [RVSON] [c *][RVSOF 

F][c 6][s Q]" 
•30 PRINTSPC(6)"[c 6][s Q] [YELLOW] [RVSON] 

[sEP] [RVSOFF] [20" "] [RVSON] [c *][RVSOF 

F][WHITE][s W]" 
•40 PRINTSPC(5)"[WHITE][s W] [YELLOW] [RVSO 

N][sEP] [RVSOFF] [20" "] [RVSON] [c *][R 

VSOFF][c 6][s Q]" 
•50 PRINTSPC(4)"[s Q] [YELLOW] [RVSON ][sEP] 

[3" "] [RVSOFF] [20" "][RVS0N][3" "][c *][ 

RVSOFF] [WHITE] [s W]" 
•60 PRINTSPC(4)"[WHITE][s W ][ YELLOW ][ RVSO 

N][4" "] [RVSOFF] [20" "] [RVSON] [4" "][RVS 

OFF][c 6][s Q]" 
•70 PRINTSPC(4)"[s Q] [YELLOW] [RVSON] [4" " 

][ RVSOFF] [20" "] [RVSON] [4" "] [RVSOFF] [WH 

ITE][s W]" 
•80 PRINTSPCC4)"[WHITE][s W] [YELLOW] [RVSO 

N][4" "] [RVSOFF] [20" "] [RVSON] [4" "][RVS 



AC 



LO 



PO 



BK 



LG 



01 



JF 

•150 PRINTSPC(5)"[WHITE][s Z][s Z][RED][R 
VSON] [WHITE] [ RVSOFF ][s Z][s Z] [RED] [RVS 
ON] [WHITE] [RVSOFF] [s Z] [RED] [RVSON] [WH 
ITE] [RVSOFF] [s Z][s Z] [RED] [RVSON] [WHIT 
E] [RVSOFF] [s Z] [RED] [RVSON] [WHITE] [RVSO 
FF][4"[s Z]"] [RED] [RVSON] [WHITE] [RVSOFF 
][s Z][RED][RVS 

ON] [WHITE] [RVSOFF] [ 5" [s Z]"] [RED] [RVSON 
] [RVSOFF] [WHITE] [s Z][s Z]" MK 

•160 PRINTSPC(5)"[WHITE][s Z][s Z][RED][R 
VS0N][3" "] [WHITE] [RVSOFF] [s Z][s Z][RED 
] [RVSON] [4" "] [WHITE] [RVSOFF] [s Z][RED][ 
RVSON] [4" "] [WHITE] [RVSOFF] [s Z][RED][RV 
SON] [WHITE] [RVSOFF] [s Z][s Z][RED][RVSO 
N] [WHITE] [RVSOFF] [s Z] [RED] [RVSON] [4" " 
] [WHITE] [RVSOFF 

][s Z][s Z]" DH 

'170 PRINTSPC(5)"[WHITE][28"[s Z]"]" IK 
•180 PRINTSPC(5)"[YELL0W][s 0][4"[c T]"][ 
s P] [CYAN] SHOOTING GALLERY [ YELLOW] [s 0][ 
4"[c T]"][s P]" JO 

'190 PRINTSPC(5)"[c G][4" "][s N][16"[c T 



AHOY! 105 



]"][s M][4" "][c M]" 01 

•200 PRINTSPC( 5) "[ YELLOW] [s L][3"[c @]"][ 

s N][RVS0N][18" "][RVSOFF][s M][3"[c @]" 
][s @]" ON 

•210 PRINTSPC(8)" [ YELLOW] [c M][RVS0N][20" 

[c U]"][RVS0FF][c G]" CM 

•215 PRINTSPC(8)" [ YELLOW] [c M][RVS0N][20" 

"][RVS0FF][c G]" OM 

•220 F0RD1=12288T012350:READS1:P0KED1,S1: 

NEXT JN 

•230 F0RD2=12352T012414:READS2:P0KED2,S2: 

NEXT DF 

•240 F0RD3=12416T012478:READS3:P0KED3,S3: 

NEXT PE 

• 250 V=53248 : S=54272 : POKEV+39 , 13 : POKEV+40 

,7:P0KEV+21,3:P0KES+24,15:P0KES,220 IK 
•255 M=56320: 0=65520 :SC=0:TG=0:B=0:R=0 BP 
•260 P0KES+1,68:P0KES+5,15:P0KES+6,215:P0 

KES+7,120:P0KES+8,100:P0KES+12,15 KP 
•270 P0KES+13,215;P1=192:P2=193:P3=195:X1 

=10rj:Yl=100:X2=70:H=2 JO 

•280 Y2=INT(RND(1)*40)+70:R=R+1 :P0KEV+21, 

3:H=H+.4iIFH>33THENH=H-2.4 GA 

•285 F0RX2=70T0255STEPH GE 

•290 P0KE2040,P1 BD 

• 300 P0KE2041 , P2 : P2=P2+1 : IFP2>194THENP2=1 

93 IC 

•310 GOSUB500 CN 

•320 IFJV=10RJV=50RJV=9THENY1=Y1-4:IFY1<6 

8THENYl=Yl+4 HP 

•330 IFJV=20RJV=60RJV=10THENYUY1+4:IFY1> 
118THENYl=Yl-4 NK 

•340 IFJV=40RJV=50RJV=:6THENXl=Xl-4: IFXK9 

0THENXl=Xl+4 LL 

• 350 IFJV=8ORJV=90RJV=ir/rHENXl=Xl+4 : IPXl> 

24r/rHENXl=Xl-4 NO 

•355 IFFR=0ANDPEEK(V+30)AND1=1THEN600 BO 
•360 P0KEV,X1:P0KEV+1,Y1 GE 

•370 POKEV+2,X2:POKEV+3,Y2 FL 

•400 NEXTX2:IFR>3THENPOKEV+21,l:G0TO900 MP 
•410 G0T0280 CG 

•500 JV=PEEK(M) LN 

•510 FR=JVAND16 AN 

•520 JV=15-(JVAND15) GH 

•530 RETURN IM 

•600 POKEV+21,l:POKES+4,129:POKES+4,128:R 

=0 IK 

•605 IFN0TPEEK(V+30)AND1=1THEN610 ME 
•610 P0KEV+2,70:P0KEV+3,90 01 

•630 SC=SC+1 ; IFSC=irX)RSC=200RSC=300RSC=40 

ORSC=500RSC=600RSC=700RSC=80THEN700 OH 
•650 G0T0280 CG 

•700 FORL=1T010:W=0:Y=INT(RND(1)*12)+12:X 

=INT(RND(l)*5)+5 NB 

•701 P0KE783,PEEK(783)AND254:P0KE781,X:P0 

KE782, Y:SYSO: PRINT" [ RED] [s W]" FE 
•705 G0SUB500 CN 

•706 IFJV=10RJV=50RJV=9THENY1=Y1-4:IFY1<6 

me AHOY! 



8THENYl=Yl+4 HP 

707 IFJV=20RJV=60RJV=ir/rHENYl=Yl+4:IFYl> 
118THENYUY1-4 NK 

708 IFJV=40RJV=50RJV=6THENX1=X1-4:IFX1<9 
OrHENXl=Xl+4 LL 

709 IFJV=80RJV=90RJV=ir/rHENXl=Xl+4:IFXl> 
24f/rHENXl=Xl-4 NO 
720 IFFR=0ANDPEEK(V+31)AND1=1THEN800 KP 
730 W=W+1 EF 
740 IFSC<40ANDW=30THENSYS0: PRINT" ":NEXT 



L: PRINT' 



GA 



745 IFSC=>40ANDW=25THENSYSO: PRINT" '•:NEX 
TL: PRINT" " 01 

750 P0KEV,X1:P0KEV+1,Y1 GE 

760 IFL<11THEN705 EB 

780 PRINT" ":GOT0280 GN 

800 POKES+4 , 33 : POKES+4 , 32 : P0KE783 , PEEK ( 7 
83)AND254:P0KE781,X:P0KE782,Y:SYS0:PRINT 

JA 
805 TG=TG+50 AC 

810 IFN0TPEEK(V+31)AND1=1THENNEXTL AP 
820 P0KE783,PEEK(783)AND254:P0KE781,X:P0 
KE782,Y:SYS0: PRINT" ":GOT0280 01 

900 POKEV+21 , 1 :CS=SC*25+TG: PRINT" [HOME] [ 
3"[D0WN]"]"SPC(14)"[CYAN]SC0RE:"CS LH 
905 IFCS>HSTHENHS=CS AE 

910 F0RL=1T010 MO 

920 PRINT" [HOME] [4"[D0WN]"]"SPC( 14)" [c 8 
][RVS0N]GAME[RVS0FF][3" "][RVSON]OVER[RV 
S0FF]":F0RG=1T050:NEXTG AE 

930 PRINT"[HOME][4"[DOWN]"]"SPC(14)"[c 8 
]GAME[3" "]0VER":F0RG=1T050:NEXTG BK 
940 NEXTL:PRINT"[H0ME][8"[IX)WN]"]"SPC(11 
)"[WHITE]HIGH SCORE: "HS LP 

945 Y2=INT(RND(l)*25)+75 MI 

950 FORX2=75T0255STEP5 GA 

955 P0KEV+2,X2:P0KEV+3,Y2 PL 

960 P0KE2041,193 DB 

970 IFA$=" "THENPRINT" [ HOME ] [ 6" [ DOWN ] " ] "S 
PC(9)"[WHITE]HIT ANY KEY TO START" :FORG= 
1T050:NEXT FD 

980 PRINT"[H0ME][6"[D0WN]"]"SPC(9)"[PURP 
LE]HIT ANY KEY TO START" :F0RG=1T050: NEXT LI 
985 P0KE2041,194 DA 

990 GETA$:IFA$=""THENGOT01000 DI 

1000 IFA$<>""THEN1020 AF 

1010 NEXTX2:GOT0945 HG 

1020 PRINT" [HOME] [3" [DOWN]" ]"SPC(14)"[ 13 
" "]" DE 

1030 PRINr'[H0ME][4"[D0WNl"]"SPC(14)"[ll 
t. „],. pg 

1040 PRINT"[H0ME][6"[D0WN]"]"SPC(9)"[20" 

*']" JK 

1045 PRINT"[HOME][8"[DOWN]"]"SPC(ll)"[17 
" "]" JM 

1050 GOT0255 CG 

1100 P0KE53281,7:P0KE53280,0 CI 

1120 PRINT"[CLEAR][H0ME]"SPC(13)"[RED][3 



IMPORTANT! aX^^tt^SSSKro-n-Sia^^^^^^^ 

SCREEN DUMPING 

FROM PAGE 73 VERSrON I 



"*" ] [ BLACK ] WELCOME[ RED ] [3"*" ] " JK 

■1140 PRINT"[DOWN]"SPC(U)"rBLUE]DUCK— SH 
OOT" PN 

■1160 PRINTSPC(8)"[BLUE]A SHOOTING GALLER 
Y GAME[DOWN]" HI 

1180 PRINTSPC(5)"[BLACK]DUCKS ARE WORTH 
25 PTS EACH[DOWN]" HE 

1200 PRINTSPC(5)"WHEN YOU SHOOT DOWN 10 
DUCKS [DOWN]" CC 

1210 PRINTSPC(5)"Y0U ENTER A TIMED TARGE 
' T ROUND [DOWN]" BK 

•1220 PRINTSPC(5)"TARGETS ARE WORTH 50 PT 
I S EACH[D0WN]" NC 

: -1230 PRINTSPC(5)"THE MORE DUCKS YOU [RED 

]SHOOT[ BLACK] DOWN [DOWN]" GJ 

- '1240 PRINTSPC(5)"THE [RED] FASTER [BLACK] 
i THEY WILL GO[DOWN]" MF 

•1241 PRINTSPC(5)"WHEN YOU MISS 4 DUCKS I 
N A ROW[DOWN]" NN 

•1242 PRINTSPC(5)"THE GAME IS OVER [ DOWN ]" JE 
•1245 PRINTSPC(5)"USE JOYSTICK— PORT #2" GJ 
•1250 PRINT"(H0ME][23"[D0WN]"]"SPC(8)"[GR 
EEN] PRESS ANY KEY TO BEGIN" :FX)RL=1T090:N 
EXT FI 

•1255 PRINT"[H0ME][23"[D0WN]"]"SPC(8)"[YE 

LLOW]PRESS ANY KEY TO BEGIN" :FORL=1T010: 

NEXT HH 

•1260 GETA$:IFA$=""THEN1250 KE 

•1270 PRINT"[CLEAR]":P0KE53281,6 KA 

•1300 RETURN IM 

•2000 DATA 0,0,0,0,0,0,0,0 FG 

•2010 DATA 0,0,0,0,0,0,0,0 FG 

•2020 DATA 0,0,0,0,0,0,40,0 HH 

•2030 DATA 0,146,0,1,17,0,1,85 MC 

•2040 DATA 0,1,17,0,0,146,0,0 LK 

•2050 DATA 40,0,0,0,0,0,0,0 FP 

•2060 DATA 0,0,0,0,0,0,0,0 FG 

•2070 DATA 0,0.0,0,0,0,0 PD 

•2080 DATA 0,0,0,0,0,0,0,0 FG 

•2090 DATA 0,0,0,0,0,0,0,0 FG 

•2100 DATA 0,160,0,1,80,0,1.31 NJ 

•2110 DATA 0,2,213,0.5,0,2,169 AH 

•2120 DATA 0.11,233,64.53.86,32,238 BH 

•2130 DATA 236,32,21,64,32,5,128.64 BB 

•2140 DATA 0,85,0,0,0,0,0,0 KG 

•2150 DATA 0,0,0,0,0,0,0 PD 

•2160 DATA 0,0,0,0,0,0,0,0 FG 

•2170 DATA 0,0,0,0,0,0,0,0 FG 

•2180 DATA 0,160.0,1,80,0,1,31 NJ 

•2190 DATA 0,2.240,0,5,14,2,169 DL 

•2200 DATA 0,11,233,64,53,86,32,239 BG 

•2210 DATA 188,32,21,64,32,5,128,64 KH 

•2220 DATA 0,85,0,0,0,0,0,0 KC 

•2230 DATA 0,0,0.0,0,0,0 PD 



•1 REM BEFORE LOADING THIS PROGRAM YOU MU 
ST P0KE44, 64 :P0KE1 6384,0: NEW KA 

•20 B=8192 :P0KE53272,24 CN 

•25 POKE 53265, PEEK (53265) OR 32 AL 
•30 FOR 1=0 TO 7999 : POKE B+I,0 : NEXT GC 
•40 FOR J=1024 TO 2043 :POKEJ, 1 :NEXT PO 
•100 FOR X = TO 319 STEP .4 BO 

• 105 Y=INT(100-( 100*C0S(X/05) )*EXP(-X/240 



FJ 
PI 
AG 
BC 
AF 
PJ 



DO 

NK 
IH 



•150 CHAR=INT(X/8) 

•155 R0W=INT(Y/8) 

•160 LINE=Y AND 7 

•165 BYTE = B + R0W*320 + CHAR*8 + LINE 

•170 BIT=7-(X AND 7) 

•175 POKE BYTE, PEEK (BYTE) OR (2[UPARR0Wl 

BIT) 

•180 NEXT X 

•190 GET A$: IF A$<>CHR$(133) THEN 190 
•205 0PEN4,4,5:CMD4:PRINT CHR$(10) CHR$(1 

^J) HO 

•210 PRINT CHR$ ( 27 )"@": PRINT CHR$(27) CHR 

$(51) CHR$(16) AF 

•215 PRINT" [10" "]"; FG 

•220 PRINT"[54"-"]"CHR$(10) JK 

•225 FORL=0 TO 24:PRINT CHR$(27) CHR$(76) 

CHR$(249) CHR$(2); PK 

•230 FOR 1=1 TO 119: PRINT CHR$(0) j :NEXTI: 

PRINT CHR$(245); lD 

•235 FOR CR = TO 39: EI 

•240 FOR P = TO 7:PBYT=0:E=2[UPARR0WK 

7-P) HE 

■245 FOR LC = TO 7 m 

•250 PBYT = PBYT-((PEEK(B+LC) AND E)>0)*2 

[UPARR0W](7-LC) pj 

•255 NEXT LC: PRINT CHR$(PBYT) CHR$(PBYT) 

5 AM 

•260 NEXT P : B=B+8 

•265 NEXT CR: PRINT CHR$(245) CHR$(10); 
•270 NEXT L: PRINT CHR$(27)"@" 
•275 PRINT" [10" "]"; 
•280 PRINT" [54"-"]" 
•285 PRINT#4,:CL0SE4 
•290 END 



CN 
EP 
KP 
FG 
ON 
AO 
IC 



VERSION II 

■1 REM BEFORE LOADING THIS PROGRAM YOU MU 
ST P0KE44,64:P0KE16384,0:NEW KA 

•5 SO = PEEK(46)*256 + PEEK(45) : SI = SO 
-210 : S2 = SO-150 : B = 8192 JL 

•30 SYS SI CF 

•ir/j FOR X = TO 319 STEP .4 BO 
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•7 P— 1:G0T039 
•8 P— 23:GOT039 
•9 P-+21:GOT039 
•U P=+l:GOT039 
•12 P=-21:G0T039 
•13 P=+23:GOT039 



I M on DTA MT I Letters on white background are Bug Repellent line codes. Do not enter themt Pages 85 and 86 explain these codes 
I IVI r U n InVi I ! and provide other essential information on entering Ahoy! programs. Refer to Itiese pages before entering any programs! 

■105 Y=INT(100-(100*COS(X/05))*EXP(-X/240 
)) FJ 

150 CHAR=INT(X/8) PI 

155 R0W=INT(Y/8) AG 

160 LINE=Y AND 7 BC 

165 BYTE = B + ROW*320 + CHAR*8 + LINE AF 
170 BIT=7-(X AND 7) PJ 

175 POKE BYTE, PEEK (BYTE) OR (2[UPARR0W] 
BIT) DO 

180 NEXT X NK 

190 GET A$: IF A$<>CHR$(133) THEN 190 IH 
195 POKE 251,0 : POKE 252,32 KO 

2r)f) FOR I = TO 7 : POKE 2048+1, 2 [UPARR 
OW]I : NEXT FP 

205 0PEN4,A,5:CMD4:PRINT CHR$(10) CHR$(1 
0) HO 

210 PRINT CHR$( 27 )"@": PRINT CHR$(27) CHR 
$(51) CHR$(16) AF 

215 PRINT"! 10" "]"; FG 

220 PRINT"[54"-"]"CHR$(10) JK 

225 FORL=0 TO 24: PRINT CHR$(27) CHR$(76) 
CHR$(250) CHR$(2); lA 

230 SYS S2 CE 

265 PRINT CHR$(245) CHR$(10); PC 

270 NEXT L: PRINT CHR$(27)"@" KP 

275 PRINT" [10" "]"; FG 

280 PRINT" [54"-"]" ON 

285 PRINT#4,:CL0SE4 AO 

290 END IC 

Machine code to be appended to VERSION II 
(see article for instructions) 



AK 
FB 
GG 
BF 
EL 
FE 



169 24 141 24 208 169 32 13 17 208 141 17 
208 169 32 133 252 160 132 251 169 145 
251 200 208 251 166 252 232 134 252 224 64 
208 242 169 4 133 252 132 251 169 1 145 
251 200 208 251 166 252 232 134 252 224 8 
208 242 96 162 169 32 210 255 232 224 
120 208 246 169 245 32 210 255 169 141 8 
8 141 9 8 141 10 8 141 11 8 169 7 56 237 9 
8 170 189 8 141 12 8 169 7 56 237 10 8 

170 189 8 141 13 8 172 10 8 177 251 45 
12 8 240 10 173 13 8 24 109 11 8 141 11 8 
174 10 8 232 142 10 8 224 8 208 212 173 11 
8 32 210 255 32 210 255 169 141 10 8 141 
11 8 174 9 8 232 142 9 8 224 8 208 171 169 
141 9 8 169 8 24 101 251 133 251 144 5 
166 252 232 134 252 174 8 8 232 142 8 8 
224 40 208 141 96 




FROM PAGE 56 
■2 G0T085 
•4 P=-22:GOT039 
•5 P.+22:G0T039 



PL 
GG 
FB 



• 15 POKEE-2, 241 :0=0+7 tPOKEE, 241 :F=F+1 : IFF 
=ZTHEN52 ED 

•16 POKEE, 135: POKEE-2, 0:G0T048 CP 

•30 PRINT"[CLEAR]":V=36878:P0KEV,15:P0KEV 
-9,255:P0KEV+1,8:E=36876:A=7911:B=30720: 
Z=Z+5:P=0 FI 

•31 TT=INT(RND(l)*4r/j)+7746:P0KETT,3 EP 
• 32 F0RT=1T0Z+EC*2 : POKEE , 135 : TT=INT( RND( 1 
)*418)+7746:POKETr+B,4:POKETT,2:POKEE,0: 
NEXT GI 

•34 F0RT=1T0Z:P0KEE,241:TT=INT(RND(1)*418 

)+7746:IFPEEK(TT)=lTHENF=F+l BD 

•35 P0KETT+B,5:P0KETT,1:P0KEE,0:NEXT IJ 

• 36 F0RT=1T0500:NEXT:P0KEE, 135: POKEE-1 ,13 
5 OB 

•38 P0KEA+B,2:POKEA, .:P0KEG,32:D=PEEK(828 
):SYS831:0NDG0T04,5,6,7,8,9,10,11,12,13 AJ 
•39 G=A : A=A+P: PRINT" [ HOME ][ WHITE ][RVS0N]S 
CORE=";0;" CLONES=";S:Q=PEEK(A) :IFQ=1THE 
N15 LJ 

•41 IFQ-2THEN60 NO 

•42 IFQ=3THEN56 NG 

•43 IFA>8l42THENA=A-484 GL 

•44 IFA<7724THENA-A+484 IB 

•48 G0T038 PB 

•52 P0KEG,32:P0KEA,.:P0KEA+B,2:P0KEE-2,24 
1 : FORT= 1T0500 : NEXT : POKEE-1 , 241 : F0RT-1T05 
00: NEXT 01 

• 53 RL=RL+1 : POKEE , 24 1 : FORT= 1T0900 : NEXT : PO 
KEE,.:P0KEE-2,.:P0KEE-1,. MP 

•54 S=S+1:P=0:F=0:GOT030 DP 

•56 POKEE,0:POKEG,32:POKEA,.:POKEA+B,2:PO 
KEE,155:GOSUB59:POKEE,0:GOSUB59:POKEE,20 
MI 

•57 GOSUB59: POKEE, 0:GOSUB59: POKEE, 24 1:G0S 
UB59:P0KEE,0:GOSUB59:P0KEE,135:0=O+F*EC: 
P=0 DH 

•58 G0T043 PB 

•59 F0RT=lT0100:NEXT:RErrURN HC 

• 60 POKEG , 32 : POKEA , 4 : POKEA+B , 7 : F0RT=1 5T00 
STEP-1 : POKEV , T : POKEE+1 , 225+T : NEXT : POKEE+ 
1,0 PA 

•62 S=S-1:IFS=0THEN65 CE 

•63 P=0:F=0:Z=Z-5:GOT030 BG 

•65 0=0+RL*50:PRINT"[H0ME][ll"[D0WN]"] [5 
"[ RIGHT ]"][RVSON][ YELLOW ]GAME OVER [BLACK 
] " : F0RT=1T01000 : NEXT : IFO>LTHENL=0 IG 
•66 P0KE36879, 24: PRINT" [ CLEAR ][ DOWN ][RVS0 
N]Y0UR[DOWN][4"[LEFT]"]SCORE=";0:PRINT"[ 
3"[DOWN]"][RVSON]HIGH[DOWN][4"[LEFT]"1SC 
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ORE=";L FJ 

•67 IF0<LANDL-0<50THENPRINT"[D0WN] [DOWN] [ 

RVSON] CLOSE, BUT NOT CLOSE [6" "] ENOUGH." BM 
•68 PRINT" [DOWN] [DOWN] [RVSON] YOU GOT TO S 

GREEN" ; RL : PRINTRL*50 ; " [ RVSON ] BONUS . " : PRI 

NT"[3"[D0WN]"][RVS0N]HIT A KEY TO TRY AG 
AIN" MP 

•69 GETA$:IFA$=""THEN69 GE 

•70 P=0:0=0:F=0:Z=0:G0T099 JJ 

•72 P0KE36879,8:PRINT"[CLEAR][3"[D0WN]"][ 
8"[RIGHT]"][RVS0N][YELL0W]S[RED]P[GREEN] 
E[CYAN]E[PURPLE]D[YELLOW]Y":PRINT"[DOWN] 
[ PURPLE ][ 8" [ RIGHT ]"] BY [ DOWN ][ LEFT ][ LEFT ] 
KEVIN [DOWN ][5"[LEFT]"]DEWEY" MJ 

•73 P0KE36869, 240: PRINT" [ DOWN ][ GREEN ]SKIL 
L LEVELC 1-15) " ; : INPUTEC FF 

•Ih IFEC<10REC>15THEN72 EE 

•75 G0T030 OJ 

•85 POKE52,28:POKE56.28:CLR:FOR A=828 TO 
881 :READB:POKEA,B: NEXT AC 

•86 F0RI=7168T07679:P0KEI ,PEEK(I+25600) :N 
EXT : F0RC=71 68T07208 : READB : POKEC , B : NEXT MH 
•90 DATA 0,0,0,169,127,141,34,145,169,0,1 
41,19,145,173,32.145,74,74,41,32,141,62, 
3 EL 

•91 DATA 173,17,145,41,28.13,62,3,74, 74, 
73,15,141,60,3,173,17,145,41.32 MD 

•92 DATA 73,32,141,61,3.169,255,141,34,14 
5,96 pj 

•93 DATA60. 126, 219, 255, 231, 189, 66, 60, 255, 

126,90,255,165,189,129,255,255.90,126,23 
1,255 IH 

•94 DATA129, 189, 255, 255, 145, 145, 159, 249.1 
37. 137, 255, 137, 74. 44, 224, 7, 52, 82, 145. 0.OJN 
•99 S=7:RL=1:G0T072 BI 

MAPPING 4.4 

FROM PAGE 45 

•1 REM *****************************++** 

•2 REM * MAPPING 4.4 * 
•3 REM * BY * 

•4 REM * J.M.MARCANO * 

•5 REM ***********+*********+****+**+*** 
■6 REM 8/29/84 

•10 REM ****** CENTRAL SECTION ****** 
•15 POKE53280,8:POKE53281,0:D$="? ? ?" 
•20 PRINTCHR$(147):F0RI=1T011:PRINT:NEXT: 

PRINTCHR$(158)SPC(17)"WAIT" GA 

•25 FOR AD=828T0888:READVA:P0KEAD,VA:NEXT 

AD GM 

•30 F0RI=49152T049543:READC:P0KEI,C:NEXT HE 
•40 SYS49309:SYS49385:P0KE81.197:SYS49512 

:GOSUB160:SYS49152:GOSUB100:GOSUB350 EA 
•50 REM ** ALL THE FUNCTIONS COME HERE ** LL 
•55 DEFFNF(X)=SIN(X) EN 

•60 GOSUB210 CD 

•70 0NKGOT0260,790, 490, 280, 810, 830,850, 60 LL 



DN 
HN 

lA 
PB 
DN 
AN 
II 
NF 



•100 REM **♦ DIRECTORY FOR F'S KEYS **** FK 
•110 PRINTCHR$(19)CHR$(30):F0RI=1T020:PRI 

NT: NEXT oP 

•115 PRINT" Fl: GRAPHIC CLEANER [7" "]F2:ST 

ORE(M+)" DB 

•120 PRINT" F3: RANGE CHANGER [9" "]F4:RECA 

LL" LD 

•130 PRINT" F5: FUNCTION CHANGER [6" "]F6:C 

LEAR MRY" nK 

•140 PRINT" F7: COMPARE WITH MRY [6" "]F8:N 

DEFINED"CHR$(19)CHR$(154) HL 

•150 RETURN im 

•160 REM **TRANSFER THE CHAR. TO SCREEN** BI 
•170 C=55341:J=1069:L=106 FH 

• 180 F0RI=f/r014:P0KEJ+I ,L:P0KEC+1 , 1 :L=^L+1 

:NEXT BA 

•190 C=C+40:J=J+40:IFJ<1464THEN180 ML 
•200 RETURN im 

•205 REM *** SET UP ERROR TRAPPING IN 870 

*** CL 

•206 T$="GOT0"+STR$(870)+CHR$(0) MJ 
•207 FOR AD=1 TO LEN(T$) :P0KE891+AD,ASC(M 

ID$(T$,AD,1)):NEXTAD PG 

•208 SYS875 eF 

•209 RETURN im 

•210 REM ****** INPUT SUBROUTINE ****** bK 
•215 GOSUB205 cj 

•220 GETK$ : IFK$=""THEN220 GH 

•230 IFK$=CHR$(133)0RK$=CHR$(134)0RK$=CHR 

$(135)0RK$=CHR$(136)THEN240 PH 

231 IFK$=CHR$(137)0RK$=CHR$(138)0RK$=CHR 



$(139)0RK$=CHR$(140)THEN240 IG 

•235 GOTO220 bM 

•240 K=ASC(K$)-132 NL 

•250 RETURN im 

•260 REM **CLEAR CHAR.** (Fl ROUTINE) MI 
•270 SYS49385:G0T060 MA 

•280 REM **CLEAR OPERATION** (F7 ROUTINE) ON 
•285 0NNG0T0290,295 nP 

•290 P0KE81.202:SYS49512:P0KE81,202:SYS49 

416:POKE81,197:SYS49464:N=2:G0T060 JB 
• 295 SYS49385 : POKES 1 , 202 : SYS49464 : N=l : GOT 

060 HM 

•300 REM *** CLEAR DATA AREA *** CG 
•310 FORJ=1064T01424STEP40 NL 

• 320 F0RI=J+23T0J+39 : POKEI , 32 : NEXTI : NEXTJ 

: RETURN rF 

•330 REM *** CLEAR WORK AREA *** GD 
•340 F0RI=1544T01 743: POKEI, 32: NEXT: RETURN CI 
•350 REM *** SET UP DATA AREA *** FM 
•360 PRINTCHR$(19)CHR$(159) : PRINT :PRINTTA 

B(23)"XO=";X0 gM 

•370 PRINTTAB(23)"XM=";XM NO 

•380 PRINTTAB(23)"YO=";Y0 LI 

•390 PRINTrAB(23)"YM=";YM OK 

•400 PRINT:PRINTTAB(23)"PIXELS:";DX BA 
•410 PRINT: PRINTTAB( 23) "DATA FROM "CHR$(1 

54);D$ FD 
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420 RETURN IM 

430 REM *** SET UP THE FUNCTION AREA *** CN 
440 F0RI=0T039:P0KE1784+I,32:NEXT JM 
450 PRINTCHR$(19)CHR$(159):F0RI=1T018:PR 
INT: NEXT: PRINT" Y=";A$ KH 

460 RETURN IM 

470 REM **** POSITION ON WORK AREA **** BA 
480 PRINTCHR$( 19) :F0RI=1T013: PRINT: NEXT: 
RETURN FI 

490 REM **INPUT FUNCTION **(F5 ROUTINE) OD 
495 GOSUB330:GOSUB470 IH 

500 PRINTCHR$(159)"ENTER THE 2DN MEMBER 
OF THE F'N ON X " GE 

505 INPUTA$:IFLEN(A$)<29THEN510 IH 

506 PRINT"MUST HAS LESS THAN 29 CHARACTE 
RS" : FORI=f/r01000 :NEXT : GOT0495 FH 
510 GOSUB330:GOSUB430:PRINTCHR$(19)CHR$( 
144):F0RI=1T014:PRINT:NEXT:PRINT; NE 
520 PRINT"55D[s E]FNF(X)=";A$ MA 
530 PRINT"RUN50 BO 
550 P0KE631,13:P0KE632,13:P0KE633,13:P0K 
E198,3:END IL 
560 REM ***INPUT RANGE SUBROUTINE*** CP 
570 PRINTCHR$(154) :GOSUB330:GOSUB470:INP 
UT"X0.XM";X0,XM OJ 
580 IFX0<XMTHEN600 LA 
590 PRINT"MUST BE XO<XM" : F0RI=r/r0100i'j : NE 
XT:G0T0570 AH 
600 GOSUB330 : GOSUB470 : INPUT"Y0 , YM" ; YO , YM KE 
610 IFYO<YMTHEN630 LH 
620 PRINT"MUST BE YO<YM":FORI=fJT010rjO:NE 
XT:GOT0600 AF 
630 GOSUB330:GOSUB4 70: INPUT" AMOUNT OF PI 
XELS FOR THE GRAPHIC" ;DX AK 
635 IFDX>f/rHENGOSUB330: RETURN KL 
640 PRINT"MUST BE >0":F0RI=0T01000:NEXT: 
GOT0630 NH 
650 REM **** FUNCTION EVALUATER **** ME 
660 IFSGN(X0)=SGN(XM)THEN670 NP 
665 X=-X0*ir9/(XM-X0) :FORY=OT079STEP5:GO 
SUB750:NEXT ID 
670 IFSGN(Y0)=SGN(YM)THEN70rj AB 
675 Y=Y0*79/ ( YM-Y0)+79 : F0RX=r/r01 19STEP5 : 
GOSUB750:NEXT KG 
700 SX=(XM-XO)/DX ND 
710 FORI=XOTOXMSTEPSX ME 
720 F=FNF(I):IFF<YrX)RF>YMTHEN740 CH 
730 X=(I-X0)/(XM-X0)*119:Y=(Y0-F)/(YM-Y0 
)*79+79:GOSUB750 LA 
740 NEXT: RETURN EJ 
750 REM ****** GRAPHIC MAKER ****** FJ 
760 RO=INT(Y/8):CH=INT(X/8):LI=YAND7 BN 
770 BIT=7-(XAND7) :BYT=13136+R0*120+CH*8+ 
LI:P0KEBYT,PEEK(BYT)0R(2[UPARR0W]BIT) LC 
780 RETURN IM 
790 REM **INPUT RANGE ROUTINE** (F3-R0UTI 
NE) PI 
800 D$="USER" : GOSUB560 : GOSUB300 : GOSUB650 



:G0SUB350:GOTO60 BN 

•810 REM **** STORE (F2-R0UTINE) **** KA 
•815 P0KE81,197 MC 

•820 SYS49416:X1=X0:X2=XM:Y1=Y0:Y2=YM:DM= 

DX:P0KE55296,5;P0KE1024,13:G0T060 MF 
•830 REM **** RECALL **** (F4-R0UTINE) LH 
•840 POKE81,197:SYS49464:IFXl=X2THENG0TO6 

NA 

•842 D$="MEM0RY":G0SUB3r/j:X0=Xl :XM=X2:Y0= 

Yl : YM=Y2 : DX=DM : G0SUB350: G0T060 IB 
•850 REM **MEMORY CLEANER** (F6-R0UTINE) MN 
•860 P0KE81, 197 :SYS49512:P0KE55296,0: GOTO 

60 DM 

•870 REM *** ERROR TRAPPING *** IL 
•880 GOSUB470 CP 

•885 EN=PEEK(889) :IFEN>127THENPRINTCHR$(1 

9) :F0RI=1T011: PRINT: NEXT: END MG 

•900 IFEN=11THENPRINT"CHECK THE FUNCTION. 

USE <F5>" KP 

•910 IFEN=20THENPRINT"DIVISION BY ZERO. [4 

" "ICHANGE RANGE" BE 

•920 IFEN=25THENPRINT"THE FUNCTION IS TOO 

COMPLEX. REDEFINE IT" KC 

•930 IFEN=15THENPRINT"NUMBER TOO SMALL OR 

TOO HIGH.REDIFINE IT" BF 

•940 IFEN=5THENPRINT"DEVICE NOT PRESENT. 

REPEAT OPERATION" DN 

•950 GOT050 PD 

•5000 REM ** MACHINE LANGUAGE ROUTINES ** JA 
•5010 REM 49152-SET UP THE FORMAT GM 
•5020 REM 49309-MOVE CHARACTERS RAM[BACKA 

RROW]ROM NP 

•5030 REM 49385-CLEAR THESE CHARACTERS DI 
•5040 REM 49416-STORE ROUTINE HH 

•5050 REM 49464-RECALL ROUTINE LC 

•5060 REM 49512-CLEAR ROUTINE NE 

•5070 REM 00875-SET UP TRAPPING FI 
•5950 DATA169, 139, 141, 0,3, 169, 227, 141, 1,3 

,165,58,141,123 JE 

•5960 DATA3, 201, 255, 240, 39, 165, 57, 141, 122 

,3,142,121,3,160 CP 

•5970 DATAO,185,124,3,153,0,2,240,3,2Orj,2 

08,245,162,255 OP 

•5980 DATA160,1,76,134,164, 169,60, 141,0,3 

,169.3,141,1 NH 

•5990 DATA3, 96, 108,0,3 MJ 

•6000 DATA169, 61, 162, 40, 157,223,5,157,207 

,6,202,208,247,169,4,162,40,157,223,217 DN 
•6010 DATA157,207,218,157,31,219,202,208, 

244,169,45,162,40,157,31,7,202,208,250 PI 
•6020 DATA169,72,162,0,157,44,4,157.84,4, 

157,124,4,157,164,4,157,204,4,157,244 LH 
•6030 DATA4, 157, 28, 5, 157, 68, 5, 157, 108, 5,1 

57,148,5,208,5,162,16,169,71,76,43,192 PA 
•6040 DATA169, 13, 162,0, 157,44,216,157,84, 

216,157,124,216,157,164,216,157,204,216 CD 
•6050 DATA157,244,216,157,28,217,157,68,2 

17,157,108,217,157,148,217,208,5,162,16 KH 
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•6060 DATA76,86, 192, 169,69, 162, 15.157, 188 
I .5,202,208,250,169,82,162,15,157,4,4 HB 
•6070 DATA202. 208, 250, 169, 13, 162. 15, 157,1 

88,217,157,4,216,202,208,247,96.173.14 AH 
•6080 DATA220,41.254,141.14.220,165,1,41, 

251,133,1,169,0,133.80,133,78,169,208 DH 
•6090 DATA133, 81, 169.48,133,79,162,8,160, 
'■ 0,177.80.145,78,136,192,0.208,247,202 LB 
•6100 DATA240,7,230,81,230.79,76,189.192, 

165,1,9,4,133,1.173,14,220.9,1,141,14 BD 
•6110 DATA220,173,24.208,41,240,9,12,141, 

24,208,96 MK 

•6120 DATA169, 80, 133, 80, 169, 0.160, 0,162, 5 
1,134.81,145,80,136,208,251,232.224.55 NE 

• 6130 DATA208 , 244 , 153 , 80, 55 , 200 , 192 , 177 , 2 
08,248,96 FA 

•6140 DATA169,80,133,78,169,51,133,79.169 

,0,133,80,234,234,234,234,162,5.160,0 FM 
•6150 DATA177.78,17,80,145,80,200,208,247 

,230.81.230,79,202,208,240,177,78,17 GC 
•6160 DATA80, 145, 80, 200, 192, 177. 208, 245, 9 

6,169,80.133,78,169,51,133,79,169,0 AG 
•6170 DATA133,80.234,234.234,234, 162,5, 16 

0,0.177,80,17,78,145,78.200,208,247 AI 
•6180 DATA230,81,230,79,202,208,240,177.8 

0.17,78,145,78,200,192,177,208,245,96 DE 
•6190 DATA169. 0,133, 80, 234, 234, 234, 234. 16 

2,5,160,0.169,0,145,80,200,208,251 JD 
•6200 DATA230, 81, 202, 208. 246, 145, 80, 200,1 

92,177,208.249,96 NK 

TOWtnSOFttANOI 

FROM PAGE U 

•10 REM - TOWERS OF HANOI FOR COMMODORE 6 



4 

•20 REM 
•30 REM 
■40 REM 
•50 REM 
•60 REM 



OE 
DK 
OA 
AL 
GM 
HN 
DD 
FL 



DANIEL MILLER 
2815 34 STREET 
ASTORIA, QUEENS 
NEW YORK, NEW YORK 11103 
SEPTEMBER 1, 1983 
•70 REM ******************************** 
•80 GOT02150 
• 90 P0KE53281 , 1 : ZZ=1 : PRINTCL$ ; LEFT$ ( D0$ , 2 

);TAB(11);HDG$; NF 

•100 P0KE55587,10:P0KE1315,49:P0KE55595,1 
: P0KE1323 , 50 : P0KE55603 , 10 : P0KE1331 ,51 DF 
•110 PRINT LEFr$(DO$,20);TAB(5);A$(l);LEF 
T$(DO$,9);TAB(ll);A$(3); EB 

•120 PRINTLEFr$(DO$,9);TAB(19);A$(3);LEFT 
$(DO$,9);TAB(27);A$(3) HK 

•130 REM - PLACE SPRITES ON TOWER #1 PM 
•140 P0KEV+14,93:P0KEV+15,160:P0KEV+12,93 

:P0KEV+13,151:P0KEV+10,93:P0KEV+11,142 ML 
•150 P0KEV+8,93:P0KEV+9,133:P0KEV+6,93:P0 
KEV+7.124:P0KEV+4,93:P0KEV+5,115 II 



• 160 POKEV+2 , 93 : POKEV+3 , 106 : POKEV+0 , 93 : PO 

KEV+1,97 OA 

•170 IF YN$="Y" THENN2=8-NUM:GOT0200 FO 
•180 IF ZZ=0 THEN350 HO 

•190 PRINTLEFT$(DO$,22);TAB(8);NUM$;:INPU 

T NUM:N2=8-NUM:SP=0:IF NUM=8 THEN270 KC 
•200 IF NUM<2 OR NUM>8 THENPRINT LEFT$(DO 

$.22);TAB(5);SP$;:G0T0190 MH 

•210 IF NUM=8 AND YN$="Y" THEN270 HA 
•220 N4=N2 LG 

•230 FOR X=l TO N4 NB 

•240 SP=SP+(2[UPARR0W](N4-1)) HP 

•250 N4=N4-1:NEXT X KG 

•260 P0KEV+2I,(255-SP) GP 

•270 ZZ=0:FOR TM=1 TO 250: NEXT TM:PRINTLE 

Fr$(D0$,22);TAB(5);SP$; LF 

•280 T1$="":T2$="":T3$="":N3=N2+1 DB 
•290 FOR X=l TO NUM:T1$=T1$+T4$(X):T2$=T2 

$+T5$(X) :T3$=T3$+T6$(X) :NEXT X GN 
■300 IF YN$="Y" THEN1430 BE 

•310 FOR X=l TO NUM:Y=2[UPARR0W]X-1:NEXT 

X NG 

• 320 NUM$=RV$+G2$+STR$ ( NUM)+R0$+SLV$ (1 )+R 

V$+G2$+STR$(Y)+SLV$(2):Y0=Y NL 

•330 PRINTLEFT$(DO$,22);TABC6);NUM$;:FOR 

TM=1 TO 2000: NEXT TM LF 

•340 FOR TM=1 TO 250: NEXT TM:PRINTLEFT$(D 

0$,22)jTAB(5);SP$; pp 

•350 PRINTLEFT$(DO$,22);TAB(6);F9$;"r4" " 

]";TAB(24);T9$;"[4" "]"; KA 

•360 PRINTLEFT$(DO$,22);TAB(6);F9$;" ";CR 

*J GG 

•370 NUM$="":SLV$(1)="":SLV$(2)="" QD 
•380 IF ZA=2 THEN420 pp 

•390 GET TWR$(1):IF TWR$(1)="" THEN390 AO 
•400 IF TWR$(1)="[F1]" THEN1330:REM - 'Fl 

MN 
•410 IF (TWR$(1)<"1" OR TWR$(1)>"3") THEN 

TWR$(1)="":GOT0390 PB 

■420 PRINT RV$+RED$+TWR$(1)+R0$; BN 
•430 G0SUB520 CL 

•440 PRINTLEFT$(DO$,22);TAB(34);" ";CR$; DN 
■450 IF ZA=2 THEN480 PB 

•460 GET TWR$(2):IF TWR$(2)="" THEN460 GI 

470 IF TWR$(2)<"1" OR TWR$(2)>"3" THENTW 



R$(2)="":G0T0460 
•480 PRINT RV$+RED$+TWR$(2)+R0$; 
•490 IF TWR$(1)<>TWR$(2) THEN510 
•500 ER$=RV$+RED$+" INVALID ENTRIES"+R0$ 

GOT0610 
•510 G0T0640 

•520 X=1:G0SUB530: RETURN 
•530 ON VAL(TWR$(X)) GOT0540,560,580 
■540 IF VAL(T1$)=0 THEN600 
•550 RETURN 
•560 IF VAL(T2$)=0 THEN600 



BK 
PC 
AJ 

BL 
CG 
GM 
GI 
HL 
IM 
FG 
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570 RETURN IM 

580 IF VAL(T3$)=0 THEN600 HJ 

590 RETURN IM 

bV) ER$=RV$+RED$+"TOWER # "+TWR$(X)+" IS 

EMPTY"+RO$ HB 

610 FOR Y=l TO 5:PRINTLEFT$(DO$,2A);TAB( 
12)ER$;:F0R TM=1 TO 250:NEXT TM PJ 
620 PRINTLEFT$(D0$,24);TAB(12);LEFT$(SP$ 
,18);: FOR TM=1 TO 250 ND 

630 NEXT TM,Y:ER$="":GOT0350 NE 

640 ON VAL(TWR$(1)) GOT0650,680,710 DN 
650 FOR X=l TO NUM:IF MID$(T1$,X,1)="1" 
THEN670 GA 

660 NEXT X:LOC(1)=160:GOT0740 GN 

670 LOC(1)=T1(N2+X):T4$(N2+X)="0":GOT074 
LF 

680 FOR X=l TO NUM:IF MID$(T2$,X,1)="1" 
THEN700 BP 

690 NEXT X:LOC(l)=160:GOT0740 GN 

700 L0C(l)=T2(N2+X):T5$(N2+X)="0":GOT074 
DB 

710 FOR X=l TO NUMiIF MID$(T3$,X,I)="1" 
THEN730 DD 

720 NEXT X:LOC(1)=160:GOT0740 GN 

730 L0C(1)=T3(N2+X):T6$(N2+X)="0" KB 
740 LC=LOC(1):GOSUB880:SP(1)=SP NF 
750 ON VAL(TWR$(2)) GOT0760,790,820 OK 
760 FOR X=l TO NUM:IF MID$(T1$,X,1)="1" 
THEN 780 GG 

770 NEXT X:L0C(2)=160:T4$(N2+X-1)="1":G0 
T0850 IG 

780 L0C(2)=T1(N2+X-I):T4$(N2+X-1)="1":G0 
T0850 EP 

790 FOR X=l TO NUM:IF MID$(T2$,X,1)="1" 
THEN810 GJ 

800 NEXT X:L0C(2)=160:T5$(N2+X-l)="l":GO 
T0850 MD 

810 L0C(2)=T2(N2+X-1):T5$(N2+X-1)="1":G0 
T0850 LN 

820 FOR X=l TO NUM:IF MID$(T3$,X,1)="1" 
THEN840 DJ 

830 NEXT X:LX(2)=160:T6$(N2+X-l)="l":GO 
T0850 LA 

840 LOC(2)=T3(N2+X-l):T6$(N2+X-l)="l" AF 
850 LC=L0C(2):G0SUB880:SP(2)=SP DJ 
860 T1$="":T2$="":T3$="":N5=N2+1 OH 
870 FOR X=N5 TO 8:T1$=T1$+T4$(X) :T2$=T2$ 
+T5$(X):T3$=T3$+T6$CX):NEXT X:GOT0960 EF 
880 IF LC=97 THENSP=1: RETURN EN 

890 IF LC=106 THENSP=2: RETURN GL 

900 IF LC=115 THENSP=3: RETURN FA 

910 IF LC=124 THENSP=4: RETURN HB 

920 IF LC=133 THENSP=5: RETURN GO 

930 IF LC=142 THENSP=6: RETURN HH 

940 IF LC=151 THENSP=7: RETURN HM 

950 IF LC=160 THENSP=8: RETURN GN 

960 ON VAL(TWR$(1)) GOT0970, 980,990 BP 
-970 SQ%=R1%(1,SP(1)):R1%(1,SP(1))=8:GOTO 

m AHOY! 



1000 FH 

•980 SQ%=R2%(1,SP(1)):R2%(1,SP(1))=8:G0T0 



1000 



■1100 
•1110 
■1120 
■1130 



KN 
GI 
HF 
IH 
KK 
EE 
NM 
DC 
HJ 
NL 
JF 
EA 
IB 
NO 
OB 



OC 
KL 
MP 
BD 
OH 
ML 
CK 
CK 
JN 



•990 SQ%=R3%(1,SP(1)):R3%(1,SP(1))=8 
•1000 ON VAL(TWR$(2)) GOTOIOIO, 1020, 1030 
•1010 Rl%(l,SP(2))=SQ%:GOTO1040 
•1020 R2%(1,SP(2))=SQ%:G0T01040 
•1030 R3%(1,SP(2))=SQ% 
•1040 ON VAL(TWR$(1)) 00101050,1060,1070 
•1050 X1=93:G0T01080 
•1060 X1=157:G0T01080 
•1070 Xl=222 

•1080 ON VAL(T¥R$(2)) G0T01090, 1100, 1110 
•1090 X2=93:GOT01120 
X2=157:GOT01120 
X2=222 

REM - MOVE SPRITE 
ON SQ%+1 GOTOl 140, 1150, 1160, 11 70, 11 

80,1190,1200,1210 
•1140 SP=0:SQ=1: GOTOl 220 
•1150 SP=2:SQ=3:GOT01220 
•1160 SP=4:SQ=5:G0T01220 
•1170 SP=6:SQ=7:G0T01220 
•1180 SP=8:SQ=9:GOT01220 
•1190 SP=10:SQ=11:GOT01220 
•1200 SP=12:SQ=13: GOTOl 220 
•1210 SP=14:SQ=15 
•1220 IF VAL(TWR$(1))>VAL(TWR$(2)) THEN12 

60 PE 

•1230 FOR YY=L0C(1) TO 55 STEP-1:P0KE V+S 

P, XI: POKE V+SQ,YY:NEXT YY EA 

•1240 FOR XX-Xl TO X2:P0KE V+SP,XX:POKE V 

+SQ,55:NEXT XX BA 

•1250 FOR YY=55 TO L0C(2):P0KE V+SP,X2:P0 

KE V+SQ,YY:NEXT YY: GOTOl 290 GE 

•1260 FOR YY=L0C(1) TO 55 STEP-1:P0KE V+S 

P, XI: POKE V+SQ,YY:NEXT YY EA 

•1270 FOR XX=X1 TO X2 STEP- 1: POKE V+SP,XX 

:POKE V+SQ,55:NEXT XX MO 

•1280 FOR YY=55 TO L0C(2) :P0KEV+SP,X2:P0K 

EV+SQ,YY:NEXT YY 
•1290 MV=MV+1:PRINTLEFT$(IX)$,24);TAB(17); 

MV$+RV$+B2$+STR$(MV)+R0$ ; 
•1300 IF ZA=2 THENMW=MW+1:GOT01440:REM - 

CCWPUTER'S NEXT MOVE 
•1310 G0T0350:REM - PLAYER'S NEXT MOVE 
•1320 REM - COMPUTER SOLUTION 
•1330 TWR$(l)="":PRINTLEFT$(DO$,24);TAB(7 

) • CMP$ • 
•1340 GET YN$:IF YN$="" THEN1340 
•1350 IF YN$="Y" THEN1370 
•1360 IF YN$<>"N" THENYN$="":G0T01330 
•1370 PRINT RV$+BL$+" "+YN$+R0$; :F0R TM=1 

TO 500: NEXT TM:IF YN$="Y" THEN1420 
•1380 FOR TM=1 TO 1000: NEXT TM 
•1390 PRINTLEFT$(D0$,24);TAB(7);SP$;LEFT$ 

(D0$,24);TAB(9);EN$; OD 

•14r/j GET RT$:IF RT$<>CHR$(13) THEN1400 BI 



NM 

HD 

JG 
GN 
NO 

HJ 
ID 
BH 

JG 

JF 
MJ 



I 



FH I 

' I 
KN 

GI 

HF ' 

IH 

KK 
EE 
NM 
DC 
HJ 
NL 

JF \ 
EA ' 
IB 
NO 
OB 

OC 

KL 

MP 

BD 

OH 

ML 

CK I 

CK 

JN 

PE , 

EA 

BA 

I 

GE 

EA 

MO 

NM 

HD 

JG 
GN 
NO 

HJ 
ID 
BH 
JG 

JF 
MJ 

CD 
BI 



•1410 POKE V+21,0: PRINT CL$;:END MG 
•1420 SP=0:MV=0:MW=1:GOT01990 IE 

•1430 YN$="":ZA=2:PRINTLEFT$(DO$,24);TAB( 
7);SP$; HD 

•1440 BI$="":F0R X=l TO 8:BI$(X)="0":NEXT 

X GO 

•1450 IF MV=YO THEN1380 PL 

•1460 CT=FRE(0) IL 

•1470 C2=0:C3=0:C4=0:C5=0:C6=0:ZA=2 BI 
•1480 DEC=MW CI 

•1490 FOR Y=0 TO 8:IF INT(2[UPARR0W]Y)>DE 
C THENY=Y-1:BI$(Y)="1":G0T01510 EE 
•1500 BI$(Y)="0":NEXT Y KC 

•1510 DEC=DEC-2[UPARR0W]Y:IF DEC=0 THEN15 
30 NE 

.1520 GOT01490 GF 

•1530 FOR Y=7 TO STEP-1 :BI$=BI$+BI$(Y): 
NEXT Y KN 

•1540 FOR X=8 TO 1 STEP-1:IF MID$(BI$,X,1 
)="0" THENC2=C2+1:NEXT X PG 

•1550 C2=C2+1 IM 

•1560 RI%=C2+NUM-1:0N NUM-1 GOT01570,1580 

, 1590, 1600, 1610, 1620, 1630 MP 

•1570 RI%=RI%+4:GOT01640 KD 

•1580 RI%=RI%+2:G0T01640 MB 

•1590 GOT01640 m 

•1600 RI%=RI%-2:G0T01640 MC 

•1610 RI%=RI%-4:GOT01640 KM 

•1620 RI%=RI%-6:GOT01640 LG 

•1630 RI%=ABS(RI%-8) DD 

•1640 FOR X=l TO 8:IF R1%(1,X)=RI% THENTW 
R$(l)="l":GOT01670 HH 

•1650 NEXT X:FOR X=l TO 8: IF R2%(1,X)=RI% 

THENTWR$(l)="2":GOTO1670 GJ 

•1660 NEXT XtTWR$(l)="3" AO 

•1670 L$=TWR$(1) MH 

•1680 FOR X=l TO 8: IF MID$(BI$,X,1)="1" T 
HENC3=C3+1:NEXT X:G0T017f/j NP 

•1690 NEXT X NK 

•1700 IF C3>1 THEN1740 FC 

•1710 IF VAL(T1$)=0 THENTWR$(2)="1":G0T03 
50 FB 

•1720 IF VAL(T2$)=0 THENTWR$(2)="2":G0T03 
50 OH 

•1730 IF VAL(T3$)=0 THENTWR$(2)="3":GOr03 
50 CF 

•1740 FOR X=8 TO 1 STEP-1 :C4=C4+1 : IF MID$ 
(BI$,X,1)="0" THENNEXT X KG 

•1750 C6=C4 KE 

•1760 FOR X-8-C4 TO 1 STEP-1 :C6=C6+1: IF M 
ID$(BI$,X,1)="0"THENC5=C5+1:NEXT X IF 
•1770 RJ%=C6+NUM-1:0N NUM-1 GOT01780,1790 

,180rj, 1810, 1820, 1830, 1840 KM 

•1780 RJ%=RJ%+4:Gar01850 PC 

•1790 RJ%=RJ%+2:GOT01850 NI 

•1800 G0T01850 GF 

•1810 RJ%=RJ%-2: GOTO 1850 NF 

•1820 RJ%=RJ%-4:G0T01850 KH 



•1830 RJ%=RJ%-6: GOTO 1850 NJ 

•1840 RJ%=ABS(RJ%-8) EH 

•1850 FOR X=l TO 8: IF R1%(1,X)=RJ% THENTX 

$="1":GOT01880 PC 

•1860 NEXT X:F0R X=l TO 8: IF R2%(1,X)=RJ%' 

THENTX$="2" : GOT01880 KI 

•1870 NEXT X:TX$="3" CB 

•1880 M$=TX$ PH 

•1890 LM$=L$+M$ AO 

•1900 IF (C5/2)=INT(C5/2) OR C5=0 THENTWR 

$(2)=TX$:GOT01970 OF 

•1910 IF LM$="12" THENTWR$(2)="3":G0T0197 

OC 

•1920 IF LM$="13" THENTWR$(2)="2":GOT0197 

DC 

•1930 IF LM$="23" THENTWR$(2)="1":GOT0197 

HA 

•1940 IF LM$="21" THENTWR$(2)="3":G0T0197 

NI 

•1950 IF LM$="31" THENTWR$(2)="2":G0T0197 

OG 

•1960 IF LM$="32" THENTWR$(2)="1" EL 
•1970 L$="":M$="":LM$="":CT=FRE(0) :G0T035 

FO 

•1980 REM - BUILD SPRITES FI 

•1990 V=53248:P0KEV+21,255:P0KEV+23,255:P 

OKEV+29,255 PE 

• 2000 P0KE2040 , 192 : P0KE204 1 , 1 93 : P0KE2042 , 

194:POKE2043,195:P0KE2O44,196 ND 

• 2010 P0KE2045 , 197 : P0KE2046 , 1 98 : P0KE2047 , 

199 KP 

•2020 P0KEV-i-39,3:P0KEV+40,15:P0KEV+41,13: 

POKEV+42 , 9 : POKEV+43 , 14 : POKEV+44 , 5 JC 
•2030 POKE V+45,8:P0KEV+46,0 CG 

•2040 RESTORE :N0=12288: FOR X=l TO 8: FOR N 

=0 TO 62: READ Q:POKE Nrj+N,Q:NEXT N EF 
•2050 N0=N0+64:NEXT X NB 

•2060 Tl$="[8"l"]":T2$="[8"0"l":T3$="r8"0 

"]" DP 

•2070 FOR X=l TO 8:T4$(X)=MID$(T1$,X,1) :N 

EXT X Fj 

•2080 FOR X=l TO 8:T5$(X)=MID$(T2$,X, 1) :N 

EXT X MJ 

•2090 FOR X=l TO 8:T6$(X)=MID$(T3$,X,1):N 
EXT X PF 

•2ir// Z%=97:F0R X=l TO 8:T1(X)=Z%:T2(X)=.Z 

%:T3(X)=Z%:Z%=Z%+9:NEXT X PC 

•2110 Y%=0:FOR X=l TO 8:R1%(1,X)-Y%:Y%=Y% 

+1:NEXT X PF 

•2120 FOR X=l TO 8:R2%(1,X).9:R3%(1,X)=9: 

NEXT X DM 

•2130 IF YN$-"Y" THEN140 OG 

•2140 G0T090 pp 

•2150 REM - BUILD CHARACTER GRAPHICS PH 

•2160 BLK$=CHR$(144):RED$oCHR$(28) :YEL$=C 

HR$(158):B2LU$=CHR$(31):CY$=CHR$(159) ML 
•2170 GlREY$="[c 4]":G2REY$-"[c 5]":REM - 
C=(4); C=(5) KJ 

AHOY! 113 



2180 RV$=CHR$(18):R0$=CHR$(146) HK 
2190 CL$=CHR$(147) :DW$=CHR$(17) :LF$=CHR$ 
(157) DA 

2200 FOR X=l TO 24:IX)$=DO$+DW$:NEXT X:DO 
$=CHR$(19)+D0$ GG 

2210 A$(l)=RV$+B2$+"[30'* "]"+R0$ AO 
2220 A$(2)=RV$+YEL$+" "+DW$+LF$ OK 
2230 FOR X=l TO 10:A$(3)=A$(3)+A$(2):NEX 
T X NM 

2240 A$(3)=A$(3)+" "+R0$ DB 

2250 HDG$=RV$+WH$+"TOWERS OF HAN0I"+R0$ GD 
2260 NUM$=RV$+B2$+"NUMBER OF RINGS (2 - 
8)"+R0$ NJ 

2270 SP$='*[30" "]" PK 

2280 F9$=RV$+G1$+"FR0M TOWER #"+R0$:T9$= 
RV$+G1$+"T0 TOWER #"+R0$ HG 

2290 CR$=RV$+CY$+" "+R0$ HK 

2300 SLV$(1)=RV$+G2$+'* RINGS REQUIRES"+R 
0$:SLV$(2)=RV$+G2$+" MOVES. "+R0$ DA 
2310 MV$=RV$+B2$+"M0VE #"+R0$ FC 

2320 CMP$=RV$+G1$+"C0MPUTER SOLUTION (Y/ 
N) ?"+R0$ AP 

2330 EN$=RV$+G1$+"PRESS <RETURN> TO END" 
+R0$ KL 

2340 G0TO1990 GC 

2350 REM - DATA FOR SPRITES NK 

2360 REM - SPRITE NB 

,,,,,,,,,,,.,,,,,,.,,,, :REM 53 COMMAS LJ 
2380 DATA 1,255,128,1,255,128,1,255,128 FH 
2390 REM - SPRITE 1 NA 

2400 DA lA p,, I,, ,,,,,,,,,,),)«, ,T)it>>t« 



MH i| 

255,192,3,255,192 MO 

NH 



MH 
255,224,7,255,224 00 

NG 



ffi>f)»t*ii>>>irif 



MH 



2410 DATA 3,255,192,3 
2420 REM - SPRITE 2 
2430 DATA ,,,,,,,,,,, 

2440 DATA 7,255,224,7 
2450 REM - SPRITE 3 
2460 DATA ,.,,,,,,,,, 

titttlfltlftlftfflffi 

2470 DATA 15,255,240,15,255,240,15,255,2 
40 JD 

2480 REM - SPRITE 4 NF 

Z^yj UAiA ,,,,,,,,,,,,,,,,,,,,,,,, •)>)>• 

MH 
2500 DATA 31,255,248,31,255,248,31,255,2 
48 IJ 

2510 REM - SPRITE 5 NE 

£.ji.'} Uft lA ,,,,,t,,t,,,,,t,,,f,,,,,t,,ifi 

MH 

2530 DATA 63,255,252,63,255,252,63,255,2 
52 AB 

2540 REM - SPRITE 6 NL 

MH 
2560 DATA 127,255,254,127,255,254,127,25 

5.254 AF 
2570 REM - SPRITE 7 * NK 

i-jO'i UAIA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

MH 
2590 DATA 255,255,255,255,255,255,255,25 

5.255 NI 
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Continued from page 84 



is meaningless. Jim's solution checked for proper syn- 
tax as it evaluated the input. That makes the problem 
quite a bit tougher. We'll leave that as an additional chal- 
lenge for those of you who found this one too easy. 

The follow people who haven't been mentioned ear- 
lier also sent solutions to February Commodares: Donald 
H. Graham (Baltimore, MD), Paul Sturm (Weatherford, 



TX), Jesus Geliga-Torres (Aguadilla, PR), Dan R. King 
(High Rolls, NM), Thomas Lambert (Sevema Park, 
MD), Richard Balliet (Nuangola, PA). Glenn Elliot 
(Rutherford, NJ), Robert Lackey (Albuquerque. NM), 
Jack Thompson (KJrkwood, MO), Bruce Landrum (Fay- 
etteville, AR), Dex Peterson (LeRqy, MI), Rc^ce Crabtree 
(Madisonville, KY), and Aaron Hughart (Pocatello, ID). 
Once again, these are the people whose solutions to 
February's Commodares have reached us by the middle 
of February. Put on those thinking caps and get busy on 
this month's challenges. You've got a lot of work to do! D 



COMING IN THE JULY AHOYl (ON SALE JUNE 4) 



MAKING YOUR 



OWN PROMS 



PUTTING YOUR VIC AND 64 

PROGRAMS INTO PERMANENT 

READ ONLY MEMORY 



MACHINE LANGUAGE 



MUSIC ROUTINES 



FOR THE VIC AND 64 

FEATURING 

SOUND ENVELOPES 



FOR THE VIC 
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SPEEDING PIXELS 




SOME ASSEMBLY LANGUAGE 
HELP FOR BIT 
MAP GRAPHICS 










. SUMMER GAMES 11. 
EIGHT NEW WAmO GO FOR THE GOL 



* -- 




y 






Sure Summer Games was great, but 
why stop there? Let Summer Games II take 
you even farther with eight new events 
including cycling, fencing, kayaking, triple 
jump, rowing, high jump, javelin and even 
equestrian. They can all be played by 
up to eight players and some, like cycling, 
rowing and fencing challenge you with 
realistic head-to -head competition. 

First, you decide which of the 18 different 
countries you're going to represent. Then, 
in true Olympic fashion, you will need the 
proper strategy and mental toughness, 
not just speed and agility to excel in each 



event. It's so realistic, there's even an 
opening and closing ceremony along with 
medal presentations after eadi event. 

It's not t(K) early to get ready for 1988. 
With the right diet, proper training and 
hours of practice you just might make it. In 
the meantime, put on your sweatsuit, giah 
that joystick and let SummerGames II j^ivi 
you eight new ways to Go For The Gold! 
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Strategy Games Kyr the MUan-Game Player 



Reaefev Service No 26 1 





BEACH-HEAD - As chiel 

commander of armed forces 

' m the Pacific, your fjrs! 

' assignment is a tough one Your mission is to obtain a quick 

/al victory and invade enemy lerritorywitti land forces BEACH-HEAD II 

Ttie wartime drama continues witfi The Dictator Strikes Back 

ACH-HEAD M is a true "head to head" two player game with vqil-; 

simulation and superb multiscreen graphics RAID OVER MOSCOW - 

~ie Soviets launch a first strike against the United States. Can your 

immandos react in time to slop the attack'' 



ACIMIIilAI) 








MadiiaatsMionti'iMi 
tul jioqiams llial >■■ ■ 
cadmiltliesollhcCN.' 
ilijk diive Iheiudugeviuxia* 
Id 50(h fastti jMogiwi tiwti«||l 
ot aikiiumi teic Mxkspaalf 
disk caialogmg 

Mii:liHoail(i«illlD3it9SVlt 
all vw^^ up '0 ^di'V laslB t* 
a mm\ 1541 Hisk dnve M 
iMil'Dii iingi! ktysiiskc' a 
manjs to make lilt llll^ ynit IW 
moie fltasanl Macli i 9« 
modiliB llu (44 k0<ui anC t 
ROM! ID liee up an adititKinlf 
byles ot mtmo.'v Im use iiy I 
langua^ groQt.iniineis Ik! i 
siiact IS incicastil Irdm 39k: ii4 
mtili renaining ludy cunjijli 
mill lunmai tSN vesicn 2 tUt 
and Madi 5 LisailP 

klach S Disk Oigaruja ii 
cmigiitiaisivt d»k maiu(Ml 
piognm mW mill Cfiat i tti 
Disk containing duKtory intofB 
tion liatn th; txi cnliii H 
libiaiy Disk name tilciuniBil 
otlu< impoitani ntonnatw na* 
nunully otracttd liom a list it 
ulaloged ts( liittiie lefetena Ik 
uw can then oClair. i soiM \At 
ill disks and all tiles urillun U 
llttity. m staicti iw sptciitt 
oanes gi gam o< names Oitt 
cu be dirtttei] to eiUw s 
(linfei 



These Access Software products are compatible with the 
Commodore 64, Atari, Apple II+/IIC/IIE and IBM PC/PC Jr. Be 
sure to look for other Access Software products at a store near you 
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DON'T MISS THE BOAT! 
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SUBSCRIBE 
TO AHOY! 

Send me twelve isaies of AHOY! for $19.95 
($26.95 Canada & elsewhere). I unders- 
tand that I will be billed lata-. 



Said me twenty-four issues (rf AHOY! for 
$37.95 ($49.95 Canada & elsewhere). I 
understand that I will be lulled later. 

NAME^ 

ADDRESS 

CITY 

STATE 



ZIP 



READER SERVICE CARD 

To request additionaJ iiiformalion on any product advertised <ir otherwise pictured in this issue o( Ahoy! 
thai is accompanied by a reader service number, circle the corresponding number below and mail this 
card. We will prom ptly forward your request to the designated companies. 

Itll lO: 103 IM lOS l(K 107 108 109 110 111 111 IIJ lU US 116 117 118 l|» 120 121 122 12J \U I2S I2« 127 118 I2S 130 

131 132 l» IM 13S 136 U7 138 139 140 141 l«Z 143 144 145 I4i 147 I4« 149 ISO IS! ISl IS3 IS4 155 156 157 158 159 160 

t«) IM i«3 164 165 166 167 I6S 169 170 171 172 173 174 17S 176 177 ITS 179 180 181 182 183 184 185 186 187 188 189 190 

191 m 193 194 195 196 197 19S 199 200 201 202 203 204 205 206 207 208 209 JIO 211 212 213 214 215 216 217 218 219 210 

211 212 213 214 2IS 216 J17 2lg 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 2J9 240 

241 242 243 244 245 246 247 248^250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 168 269 270 

271 272 273 174 275 276 277 278 279 ISO 281 2«2 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 198 299 300 



PLEASE ANSWER THE QUESTIONS BEIXIW. 
Sk% and igc > <.f 



EdwaUoaal Irrd coaptaUd 
C O doKalwy 
OVU^ickoal 

EDI 
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Name. 
Street. 
City _ 



r D taOt^t (naluale 
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State 



Frmi wkldl ct Ike (olknrini mircti dM ^ou obtain your 

K D atwrnmai N JS BibaciipUos (mail) 

L D IVvn a Mod or ftmiljF maidw 

M D Mkcr 



ir not aunad; a nbKrilHr, do iw pUa M btcoiiir aw? 

I D ;« tOm 



Zip 



NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 



BUSINESS REPLY CARD 

FIRST CLASS PERMIT NO. 65 MT. MORRIS, ILL. 



POSTAGE WILL BE PAID BY ADDRESSEE 



i\hoy! 

P.O. BOX 341 
MT. MORRIS, ILL. 61054 
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AHOY! MAGAZINE 
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Clinton, Iowa 52735 



